Datei auf Verfügbarkeit prüfen

[tc4xe]

Hallo liebe Mitglieder!

Ich möchte bei einer Datei z.B. update.txt auf Verfügbarkeit prüfen.

z.B. sollte der Pfad so aussehen: http://www.abcd.com/update.txt

Wie kann ich am besten die Datei auf Verfügbarkeit prüfen und den Inhalt in eine String varieble schreiben?

[IngoD7]

http://www.delphi-forum.de/viewtopic.php?t=69967

[tc4xe]

Zitat:

Zitat von IngoD7

http://www.delphi-forum.de/viewtopic.php?t=69967

Hilft mir leider nicht weiter. Das wusstest du doch auch oder

[IngoD7]

Zitat:

Zitat von tc4xe

Zitat:

Zitat von IngoD7

http://www.delphi-forum.de/viewtopic.php?t=69967

Hilft mir leider nicht weiter. Das wusstest du doch auch oder

Es hilft aber denen weiter, die keinen Bock darauf haben, hier ihre Zeit zu opfern mit Überlegungen, die woanders vielleicht schon lange besprochen wurden.

Crosspostings sind nicht die wirklich taugliche Art, sich beliebt zu machen.

[Pfoto]

Hi!

Crossposting hin oder her,
ich hatte mal etwas ähnlich gesucht
und das hier gefunden:

Delphi-Quellcode:

function DownloadURL_NOCache(const aUrl: string; var s: String): Boolean;
var
  hSession: HINTERNET;
  hService: HINTERNET;
  lpBuffer: array[0..1024 + 1] of Char;
  dwBytesRead: DWORD;
begin
  Result := False;
  s := '';
  // hSession := InternetOpen( 'MyApp', INTERNET_OPEN_TYPE_DIRECT, nil, nil, 0);
  hSession := InternetOpen('MyApp', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
  try
    if Assigned(hSession) then
    begin
      hService := InternetOpenUrl(hSession, PChar(aUrl), nil, 0, INTERNET_FLAG_RELOAD, 0);
      if Assigned(hService) then
        try
          while True do
          begin
            dwBytesRead := 1024;
            InternetReadFile(hService, @lpBuffer, 1024, dwBytesRead);
            if dwBytesRead = 0 then break;
            lpBuffer[dwBytesRead] := #0;
            s := s + lpBuffer;
          end;
          Result := True;
        finally
          InternetCloseHandle(hService);
        end;
    end;
  finally
    InternetCloseHandle(hSession);
  end;
end;

//aufrufen
var
  s: String;
begin
 if DownloadURL('http://www.swissdelphicenter.ch/', s) then
   ShowMessage(s);
end;

Den gesamten Artikel findest du auf swissdelphicenter.ch

Damit kannst du indirekt auch überprüfen, ob eine Datei
vorhanden ist (if Assigned(hService) then...)
und liest die Datei direkt in einen String.

Gruß
Pfoto