indy http.Post problem

[easteregg]

heyho.

für meinen client (siehe projekt ->signatur) nutze ich die indykomponente idHtttp.Post
die funktioniert an sich auch gut und sendet die daten via post an meinen server.

nur nach einer gewissen zeit (so ca. 100-300 aufrufe) verweigert sie immer den dienst.

Delphi-Quellcode:

procedure tform1.senddata;
var
  data: TIdMultiPartFormDataStream;
  pass : MD5Digest;
  reply :string;
begin
 zeile[1] := daten[cbline1.itemindex];
 zeile[2] := daten[cbline2.itemindex];
 zeile[3] := daten[cbline3.itemindex];
 zeile[4] := daten[cbline4.itemindex];
 zeile[5] := daten[cbline5.itemindex];
     if edit_user.text = '' then
                              begin
                                  reply:='Keine Userdaten eingetragen';
                              end
     else
      begin
         IdHTTP1.Request.UserAgent:='siginfo client ' + version + '(user: ' + edit_user.text + ')';
         data := TIdMultiPartFormDataStream.Create;
         //passwort auslesen und in md5
         pass := md5.MD5String(edit_pass.text);
        try
         { POST daten erstellen }
         data.AddFormField('user', edit_user.text);
         data.AddFormField('pass', md5.MD5Print(pass));
         data.AddFormField('zeile1', zeile[1]);
         data.AddFormField('zeile2', zeile[2]);
         data.AddFormField('zeile3', zeile[3]);
         data.AddFormField('zeile4', zeile[4]);
         data.AddFormField('zeile5', zeile[5]);
         data.AddFormField('lastupdate', datetostr(date) +', '+ timetostr(gettime));
         data.AddFormField('version', version);
         data.Position:=0;
              try
                reply := IdHTTP1.Post(server, data);
              except
                reply := 'Server Timeout';

              end;
        finally
          data.free;
        end;
     end;
 Log.Lines.add (timetostr(gettime) + ': ' + reply);
 statusbar1.Panels[1].Text:=reply;
 statusbar1.Panels[0].Text:=timetostr(gettime);
end;

so sieht meine procedure zum daten senden erstmal aus.

wenn der server nicht erreichbar ist, schreibt er ja "server timeout" in den antwortstring rein.
aber trotz verbindung zum server (localhost zur zeit noch) bringt er mir immer "timeout".
erst wenn ich das programm neu starte, ist dieser fehler vorbei.

wie kann ich das beheben und vorallem - woran liegt das?

[Klaus01]

Guten Morgen,

kannst Du in Erfahrung bringen, welche Exception ausgeworfen wird.

Dein Code wirft bei jedweder Exception als reply "Server Timeout" aus.

Delphi-Quellcode:

       
try
  reply := IdHTTP1.Post(server, data);
except
  reply := 'Server Timeout';

Grüße
Klaus

[easteregg]

ich hab das bis jetzt noch nicht in der bsd bekommen, diesen fehler.

aber so im schlaf hab ich mir überlegt, ich kann mir doch eigentlich die try finally sparen oder?
ich brauch ja nur das senden abfangen!

[Klaus01]

sehe ich auch so

Grüße
Klaus

[easteregg]

so ich werd mal schauen ob sich das problem damit schon erledigt hat

[easteregg]

also es kam erneut nach dem 546 update....
dann musst ich das programm neu starten und schon gings wieder.

ich schau jetzt mal was genau für ein fehler kommt wenn ich das in der IDE laufen lasse.

aber das kann dauern bin das wieder auftritt

[easteregg]

---------------------------
Debugger Exception Notification
---------------------------
Project siginfo.exe raised exception class EIdSocketError with message 'Socket Error # 10054
Connection reset by peer.'.
---------------------------
Break Continue Help
---------------------------


aber die seite mit dem script ist einwandfrei erreichbar. (wie gesagt local host...)
aber er hat mir auch keine fehler in der componente selbst gebracht.

kann ich die irgendwie dynamisch erstellen bevor ich die daten sende?
und anschliesend eben wieder schliesen? (also die idhttp componente)

[Klaus01]

keine Ahnung obdas hilft, aber kannst ja mal schauen -> http://forum.dsdt.info/viewtopic.php...42f2a39c4e887d
oder hier -> http://groups.google.de/group/borlan...52d0c222630e42

Grüße
Klaus

[Angel4585]

In welchen Abständen führst du diese Prozedur aus?

[easteregg]

wahlweise in 30 bzw 60 sekunden abständen.
aber mit timeout zeiten sollte das ja kein problem geben, da die abfrage an localhost gesendet wird!