EIdSocketError

[Thorti]

Der Fehler kommt, wenn ich die Exe ausführe und auch wenn ich vom Programm aus starte... Ich finde kein Römerhelm

[Klaus01]

Römerhelm -> siehe Anhang.

Delphi-Quellcode:

begin
  ProgDir:=GetCurrentDir();
  WPfad:= ProgDir;
  IdHTTP1:=TIdHTTP.Create; // Hier wird ein Element vom Typ IdHTTP erzeugt
  configuration:=TIniFile.Create(ProgDir+'\config.ini');
  LoN:=configuration.readstring('Serverdaten','Usern ame',''); //Einlesen von Username und Passwort
  LoP:=configuration.readstring('Serverdaten','Passw ord','');

  Repeat

    ipaddr:=''; // Hiermit wird sichergestellt, dass ipaddr nicht vorher
    // beschrieben wurden
    try
      ipseitestr:=IdHTTP1.Get('http://www.wieistmeineip.de/');
      // der Quelltext von "www.wieistmeineip.de" wird in ein string geschrieben
      // Dieser String wird im folgenden nach Anfangs- und Endzeichen durchsucht.
      anfang:=ansipos('"ip">',ipseitestr)-5;   //IdHTTP1.Get('http://www.wieistmeineip.de/'))+5;
      ende:=ansipos('</h1>',ipsietestr)-1;     //IdHTTP1.Get('http://www.wieistmeineip.de/'))-1;
      Uhrzeit:=timetostr(gettime); //Ausgabe der Uhrzeit
      Datum:=datetostr(date()); // Ausgabe des Datums
      for i:=0 to (ende-anfang) do // Schreiben der IP-Adresse
        ipaddr:=ipaddr+ipseitestr[anfang+i];
      // Hier wird eine INI Datei erstellt.
      ini:=TIniFile.Create(ProgDir+'\AktuelleIP.txt');
      try
        ini.writestring('MessrechnerIP','Datum',Datum);
        ini.writestring('MessrechnerIP','Uhrzeit',Uhrzeit) ;
        ini.writestring('MessrechnerIP','Adresse',ipaddr);

      finally
        ini.free;
      // ---------- hier würde ich ein "end;" setzen   
      
      FillChar(SEInfo, SizeOf(SEInfo), 0); //Auffüllen von SEInfo und dessen Größe mit 0
      SEInfo.cbSize:=SizeOf(TShellExecuteInfo);
      with SEInfo do
        begin
          fMask:=SEE_MASK_NOCLOSEPROCESS;
          wnd:=Application.Handle;
          lpVerb:=PChar('open');
          lpFile:=PChar(ProgDir+'\psftp.exe');
          lpParameters:=PChar('-l '+LoN+' -pw '+LoP+' server -batch -b PutDatei.txt');
          lpDirectory:=PChar(WPfad);
          nShow:=SW_HIDE;
        end;
      ShellExecuteEx(@SEInfo);
   // end;
      sleep(60000);
    except 
      on E: EIdException do begin
        sleep(60000);
      end;
   // zu welchem try gehört das?
   //  on E: Exception do begin
   //  sleep(60000);
   // end;
   //end;
  Until False;
end.

[Thorti]

Delphi-Quellcode:

program IPAdresse;

uses
  Forms, Windows, SysUtils, Variants,
  Classes, StdCtrls, IdBaseComponent,
  IdComponent, IdIPWatch,
  IdTCPConnection, IdTCPClient,IdIcmpClient,
  IdHTTP,IdException, shellAPI, ExtCtrls,
  IniFiles;

{$R *.res}
var
IdHTTP1: TIdHTTP;
Ini,configuration: TIniFile;
ende, anfang, i:integer;
ipaddr, ipseitestr:string;
Uhrzeit, Datum:string;
LoN, LoP: String; // Login Name und Login Passwort
ProgDir: String; // Hier wird der aktuelle Ordner des Programms beschrieben
SEInfo: TShellExecuteInfo; // Unit shell API
WPfad: string; // Ordner für Webdateien: psftp.exe, skript.txt

begin
  
  ProgDir:=GetCurrentDir();
  WPfad:= ProgDir;
  IdHTTP1:=TIdHTTP.Create;      // Hier wird ein Element vom Typ IdHTTP erzeugt
  configuration:=TIniFile.Create(ProgDir+'\config.ini');
  LoN:=configuration.readstring('Serverdaten','Username','');
  LoP:=configuration.readstring('Serverdaten','Password','');

Repeat
        ipaddr:='';   // Hiermit wird sichergestellt, dass ipaddr nicht vorher
                      // beschrieben wurden
        ipseitestr:=IdHTTP1.Get('http://www.wieistmeineip.de/');

        anfang:=ansipos('"ip">',IdHTTP1.Get('http://www.wieistmeineip.de/'))+5;
        ende:=ansipos('</h1>',IdHTTP1.Get('http://www.wieistmeineip.de/'))-1;
        Uhrzeit:=timetostr(gettime);       //Ausgabe der Uhrzeit
        Datum:=datetostr(date());          // Ausgabe des Datums
        for i:=0 to (ende-anfang) do       // Schreiben der IP-Adresse
          ipaddr:=ipaddr+ipseitestr[anfang+i];
          // Hier wird eine INI Datei erstellt.
          ini:=TIniFile.Create(ProgDir+'\AktuelleIP.txt');
          try
            ini.writestring('MessrechnerIP','Datum',Datum);
            ini.writestring('MessrechnerIP','Uhrzeit',Uhrzeit);
            ini.writestring('MessrechnerIP','Adresse',ipaddr);
            finally
            ini.free;

        // Transfer der Webdaten zum Server im Rechenzentrum
        // Als erstes wird der Record SEInfo beschrieben. Dieser wird zum Schluss
        // der Funktion ShellExecuteEx uebergeben.

        FillChar(SEInfo, SizeOf(SEInfo), 0);  //Auffüllen von SEInfo und dessen Größe mit 0
        SEInfo.cbSize:=SizeOf(TShellExecuteInfo);
        with SEInfo do
          begin
          fMask:=SEE_MASK_NOCLOSEPROCESS;
          wnd:=Application.Handle;
          lpVerb:=PChar('open');
          lpFile:=PChar(ProgDir+'\psftp.exe');
          lpParameters:=PChar('-l '+LoN+' -pw '+LoP+' Servername -batch -b PutDatei.txt');
          lpDirectory:=PChar(WPfad);
          nShow:=SW_HIDE;
          end;  //with SEInfo do
        ShellExecuteEx(@SEInfo);
        sleep(60000);
          end;  //  try-finally

        else sleep(60000);
Until False;
end.  //Anfang

[Thorti]

So das letzte else ganz unten kann man vergessen. Habe grade das Programm bissel geändert und vergessen das zu löschen.

Hab mir überlegt, dass ich mein Problem vielleicht über eine If-Abfrage lösen kann...
Es gibt ja noch die Komponente IdIcmpClient, mit der ich einen Ping simulieren und domit je nach Rückmeldestatus meine Funktion ausführen kann... vielleicht ist das einfacher


Wie ich das sehe ist da kein zweites try vorhanden... muss eins da sein?

[Thorti]

Hallo Klaus,
Also das Problem lag wie immer im Detail. So wie es aussieht lag es nur an dem "Sch..." try-finally, dass danach das "end" gesetzt werden musste...

Ich danke für die Hilfe
Gruß
Thorsten