Hallo Tom,
bin zwar kein Wissender, aber das Folgende hab ich ausprobiert.
Mit tclientsocket geht das problemlos. Mein Beispiel ist zwar primitiv, vielleicht kannst du das umstricken, hauptsächlich geht es darum, das http Protokoll einzuhalten.
Code:
procedure sendline(from,whereto,outtext:string;csock:tclientsocket;host,path:string);
const crlf=char(13)+char(10);
var request,poststring:string;
begin
poststring := 'from=' +from
+ '&to=' +whereto
+ '&line='+urlencode(outtext)
;
request := 'POST '+path+' HTTP/1.1'+crlf
+ 'Content-Type: application/x-www-form-urlencoded'+crlf // bewirkt Übergabe in $_POST
+ 'User-Agent: Chatting-RubberDuck'+crlf
+ 'Host: '+host+crlf
+ 'Connection: Keep-Alive'+crlf
+ 'Content-Length: '+inttostr(length(poststring))+crlf
+ crlf
+ poststring
+ crlf
;
csock.socket.sendtext(request);
end;
der flossinger