Registriert seit: 29. Mai 2002
37.621 Beiträge
Delphi 2006 Professional
|
Re: IP Watcher
25. Mai 2005, 15:00
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));
Michael Ein Teil meines Codes würde euch verunsichern.
|
|
Zitat
|