1Sockety w Delphi 5

Witam :)

Mam pewien problem z Socketami w Delphi. Pytalem juz o to ostatnio jednak zle sformulowalem problem

Chodzi mi mi o to by na podany adres (host/sciezka) wyslac pewien pakiet danych POST (w formacie HTTP 1.0), np:

[code]POST /dave/przyklad.asp HTTP/1.0
Host: wilsona.net
Content-Type: application/x-www-form-urlencoded
User-Agent: Mozilla/4.0 (compatible; MSIE 5.0; Windows 98)
Content-Length: 12

Hello World![/code]
i odczytac (zapisac do stringa) odpowiedz serwera

Mam kompilator Delphi 5 i chcialbym to zrobic na socketach.

Czy moglby ktos przeslac mi fragment kodu ktory realizowal by wyslanie tego pakietu na dany adres a nastepnie zapisujacy odpowiedz serwera w zmiennej string?

Z gory dziekuje za pomoc

Dawid 'Vade' Kopiec

<url>[email protected]</url>

Troszke jest to inaczej...

Nie neguje ze z socketa tego nie wyslesz..
ale musisz znac specyfikacje RFC protokołu HTTP...

Naprościej będzie jak sciągniesz z http://www.nevrona.com/indy
pakiet INDY. masz tam komponent TidHTTP...

Wtedy w kodzie starczy dac kod:

procedure TMainFrm.BtnWyslijClick(Sender: TObject);
var
StreamIn,streamOut :TStringStream;
begin
Http.Host:=EdtHost.Text;//czyli np www.4programmers.net
StreamIn:=TStringStream.Create('');
StreamOut:=TStringStream.Create('');
TempList.Clear;
 try
  try
  StreamIn.WriteString('tu wysulamy zapytanie POST');
  Http.Post('http://jakis.adres.pl', StreamIn, StreamOut);
  MemoGet.Text:=StreamOut.DataString ;
  finally
  StreamIn.Free;
  StreamOut.Free;
  end;
 except
 ShowMessage('Błąd!!!!');
 end;
end;

To jest tylko ogólny zarys tego..szersze informacje zdobedziesz z książki Adama (Delphi7 , ćw dla zaawansowanych)..