|
#1
|
||||
|
||||
IdHTTPServer
как отправить файл клиенту?? ну например я создал сервер и обрабатываю входящие запросы:
Код:
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; |