Zainteresowałem się stworzeniem w delphi prostego serwera HTTP za pośrednictwem zwykłego gniazda TCP/IP. Zacząłem kombinować i nawet co nieco mi wyszło. Doszedłem do czegoś takiego:
procedure TForm1.serverClientRead(Sender: TObject;
Socket: TCustomWinSocket);
var
buf:array [0..2048] of char;
l:integer;
b:pchar;
begin
label1.Caption:='';
l:=socket.ReceiveLength;
socket.ReceiveBuf(buf, l);
label1.Caption:=label1.Caption+string(buf);
b:=pchar('HTTP/1.0 200 OK'+#13#10+'Date: Mon, 21 Oct 2002 1729 GMT'+#13#10+'Server: Serwerek'+#13#10+'Connection: Close'+#13#10+'Content-Type: text/html');
socket.SendBuf(b, sizeof(b));
socket.SendStream(tfilestream.Create('c:\plik.html', fmopenread or fmsharedenywrite))
end;
Ładnie pokazuje na labelku żądanie klienta, ale z odpowiedzią jest troszeczkę gorzej. Trzeba czekac bardzo długo, zeby cokolwiek wyświetliło się w przeglądarce, a na początku dokumentu zawsze jest '!E'. Co ciekawsze, plik pojawia się także, jak zamiast '200 OK' wyślę '404 Not Found' :).
Czy ktoś na forum byłby w stanie udzielić mi informacji na ten temat, lub może ktoś ma link do ciekawego artykułu, etc?---------------------------
Delphi 6
Pozdrówka