ok - ich versuch jetzt grad anders aber so funktionierts aus net ganz - kann mir hier evtl jemand helfen?
http ist ein TClientSocket
Delphi-Quellcode:
http.host := '
webserver';
http.Port := 80;
http.active := TRUE;
if http.Active = TRUE
then
begin
http.Socket.SendText('
POST /getfile.php HTTP/1.1'
+'
Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/vnd.ms-excel, application/msword, application/x-shockwave-flash,'
+'
*/* Referer: [url]http://127.0.0.1[/url] Accept-Language: de Content-Type: application/x-www-form-urlencoded'
+'
Accept-Encoding: gzip, deflate User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)'
+'
Host: webserver Content-Length: 118 Connection: Keep-Alive Cache-Control: no-cache'
+'
sql=blabla'+#13#10+#13#10);
memo2.lines.Add('
SENT!');
end
else
http.Active := FALSE;
http.Active := FALSE;