как отправить файл клиенту?? ну например я создал сервер и обрабатываю входящие запросы:
Код:
procedure TForm1.HTTPCommandGet(AThread: TIdPeerThread;
ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
var str:string;
st:TStringList;
begin
str:=StringReplace(arequestinfo.document,'/','\',[rfReplaceAll]);
Delete(str,1,1);
if FileExists(ExtractFilePath(Application.ExeName)+str) then
begin
st:=TStringList.Create;
st.LoadFromFile(ExtractFilePath(Application.ExeName)+str);
AResponseInfo.ContentText:= st.Text;
st.free;
end;
if ExtractFileName(ExtractFilePath(Application.ExeName)+str)='favicon.ico' then
begin
//
// здесь как то надо отправить файл favicon.ico серверу. но как ???
//
end;
memo1.lines.add(ExtractFilePath(Application.ExeName)+str);
end;
при запросе favicon.ico мне нужно отправить файл клиенту (в данном случае - браузеру). как это сделать??