IP Watcher

[Luckie]

myip.php Nur hatte mein Webhoster gestern Nachmittag einen Fetsplattencrash und seit dem sind sie dabei das wieder hinzukriegen:

Zitat:

Festplattenschaden

Es erfolgt derzeit eine Wiederherstellung der Webdaten, die bis voraussichtlich 16:00Uhr andauern wird. Hierdurch steht bis zu dieser Uhrzeit kein FTP- sowie HTTP-Dienst zur Verfügung. Der E-Mail-Dienst (POP3/SMTP) wird über einen Backupserver zur Verfügung gestellt, so dass Sie alle E-Mails erhalten und senden können. Wir danken für Ihr Verständnis.

Der Code:

Delphi-Quellcode:

function GetTempDir: string;
var
  Buffer: array[0..MAX_PATH - 1] of Char;
  Len: DWORD;
begin
  result := '';
  Len := GetTempPath(sizeof(Buffer), Buffer);
  if Len > 0 then
    SetString(result, Buffer, Len);
end;

function GetTempName(const aDir: string): string;
var
  Buffer: array[0..MAX_PATH - 1] of Char;
  uUnique: DWORD;
begin
  result := '';
  if aDir <> '' then
  begin
    uUnique := GetTempFileName(@aDir[1], '$IP', 0, Buffer);
    if uUnique <> 0 then
      result := string(Buffer);
  end;
end;

procedure DownloadFile(URL: string; Filename: string);
begin
  URLDownloadToFile(nil, PChar(Url), PChar(Filename), 0, nil);
end;

Delphi-Quellcode:

TempFilename := GetTempName(GetTempDir);
  DownloadFile(URL, TempFilename);
  AssignFile(F, TempFilename);
{$I-}
  Reset(F);
{$I+}
  s := '';
  if IOResult = 0 then
  begin
    while not EOF(F) do
      Readln(F, s);
  end;
  CloseFile(F);

  DeleteFile(pointer(TempFilename));