Hallo,
Client disconnect funktioniert nicht,
der client denkt weiterhin er ist connected - sprich jeder versuch
wieder zu connecten schlägt fehl... wenn ich den connect über einen
2ten button versuche, dann kommt die meldung das der client bereits
connected wäre - was er aber definitiv nicht ist!
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
request, nl, content : string;
i : integer;
begin
Client.Connect;
content := 'type=pocsag&address=1179001&flags=0&function=d&message=<SOH>35GOß3@y<ETB><NUL>L(ß<BRL>=el<ETX>l1P! #Ä<DC1>>In<ACK><DE';
Memo1.Clear;
nl := AnsiChar(#13) + AnsiChar(#10);
request := 'POST /telegramin/alarmgeber/input.xml HTTP/1.1' + nl
+ 'Authorization: Basic FtgZhjhuUhjhHGHgh=' + nl
+ 'Content-Type: application/x-www-form-urlencoded' + nl
+ 'Host: test.delphi.info' + nl
+ 'Content-Length: ' + IntToStr(length(content)) + nl
+ 'Expect: 100-continue' + nl
+ 'Connection: Keep-Alive'+ nl + nl
+ content;
Client.IOHandler.WriteLn(request);
for I := 1 to 20 do
Memo1.Lines.Add(Client.IOHandler.ReadLn);
Client.Disconnect;
end;