so hier ist der neue quelltext, der nicht geht?
warum ?
möchte ein telegramm zur schnittstelle senden!
Delphi-Quellcode:
var request, nl, content : string;
// http request
content := 'type=pocsag&function=a&address=1234567&flags=0&message=hallo';
if Client.Connected then Client.Disconnect;
Client.Connect;
nl := AnsiChar(#13) + AnsiChar(#10);
request := 'POST /telegramin/alarmgeber/index.xml HTTP/1.1' + nl
+ 'Authorization: Basic uZtghzjuhZhujHu=' + nl
+ 'Content-Type: application/x-www-form-urlencoded' + nl
+ 'Host: 192.168.0.110' + nl
+ 'Content-Length: ' + IntToStr(length(content)) + nl
+ 'Expect: 100-continue' + nl
+ 'Connection: Keep-Alive'+ nl + nl
+ content;