http request

[Alterauge]

hallo, was ist am quelltext falsch?
das telegramm wird nicht gesendet!

Delphi-Quellcode:

procedure TForm1.BitBtn1Click(Sender: TObject);
var request, content : string;
begin
 // http request
   Client.Host:='192.168.0.110';
   request := 'Post /telegramin/alarmgeber/index.xml HTTP/1.1';
   content := 'type=pocsag&function=a&address=1234567&flags=0&message=hallo'
   + 'Content-Type: application/x-www-form-urlencoded'
   + content;
 end;

[Der schöne Günther]

Absicht, dass die Leerstelle zwischen 'hallo' und 'Content-Type' fehlt?

[Bummi]

Was ist Client und warum sollte etwas gesendet werden.
Du setzt den Host und befüllst 2 Stringvariablen ....

[Alterauge]

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;

[taveuni]

Willst Du uns vergackeiern? Was ist Client, nl, und request. Wo sendest Du was?

[mjustin]

Zitat von Alterauge:

so hier ist der neue quelltext, der nicht geht?
warum ?

Gibt es eine Fehlermeldung, und wenn ja, welche?

[Alterauge]

Oh, habe ich vergessen!

Client ist eine IdTCPClient Komponente!

Sorry

[baumina]

Und wann teilst du dem Client den Request mit?

[Alterauge]

wenn der button ausgeführt wird, kommt die fehlermeldung:

'Connection Closed Gracefully'

der compilier gibt keine fehlermeldung raus!

[Alterauge]

oh, habe was vom quelltext nicht mit angegeben!

sorry!

Delphi-Quellcode:

 // http request
   content := 'type=pocsag&function=a&address=1126026&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 jhfhuhjjwerjejghjhewjE=' + 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;
 Client.IOHandler.WriteLn(request);

verstehe es nicht? wieso da nix raus geht!
die fehlermeldung: 'connection Closed Gracefully' verstehe ich auch nicht??