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:

Zitat von Alterauge (Beitrag 1214557)

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??

[Alterauge]

Hallo,

so jetzt bekomme ich über Button1 mein Telegramm gesendet! ( 1 x mal)
Benutze die Indy TCPClient Komponente, ein disconnect ist nicht möglich! (ist ja bekannt bei der Indy Komponente)

Was habe ich jetzt noch für eine Möglichkeit, über den Button1 das Telegramm nochmals zu senden?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
 request, nl, content : string;
 i : integer;
begin
   content := 'type=pocsag&address=1234077&flags=0&function=a&message=hallo';
      nl := AnsiChar(#13) + AnsiChar(#10);
   request := 'POST /telegramin/alarmgeber/input.xml HTTP/1.1' + nl
   + 'Authorization: Basic FtzUjHjUjjJHUJ=' + nl
   + 'Content-Type: application/x-www-form-urlencoded' + nl
   + 'Host: delphi.delphi.de' + 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);
 end

[mjustin]

Zitat:

Zitat von Alterauge (Beitrag 1215070)

Benutze die Indy TCPClient Komponente, ein disconnect ist nicht möglich! (ist ja bekannt bei der Indy Komponente)

Bei der TIdTCPClient Komponente kann man Disconnect ausführen. Ich bin mir sicher noch nichts gegenteiliges gehört zu haben ...