Unter Delphi 3 Prof. Datei herunterladen???

[EDatabaseError]

Wie der Titel schon sagt ich brauch einen Befehl um in D3 eine Datei herunterzuladen. Hab schon in gewissen Themen was gefunden das in D3 nicht funkt.

Mfg

Tobi

[Klaus01]

indy http oder ftp ?

Grüße
Klaus

[EDatabaseError]

kannst du mir sagen wo es indy für D3 incl. Hilfe gibt ich find indy nur für d4 und http.

mfg
tobi

[Klaus01]

Sorry, habe jetzt erst gelesen, daß es Indy erst ab Delphi4 gibt.

Kannst Du denn mit Delphi3 schon ActiveX machen?
Dann wäre es möglich den IE einzubinden, wenn es denn http sein soll.

Grüße
Klaus

[EDatabaseError]

imho hat delphi 3 nicht auch irgentwas wo ich das realisieren könnte???

[Klaus01]

Hallo Tobi,

kannst Dir mal die ics Tools von Francois Piette anschauen.
Sollten auch mit Delphi3 gehen.

http://www.overbyte.be/frame_index.html

Habe Dir mal das ReadMe angehängt.

Grüße
Klaus

[SirThornberry]

funktionen wie URLDownloadToFile sollte es auch schon unter Delphi3 geben. Wenn nicht kannst du die Funktion manuell laden (uses: urlmon oder DLL: urlmon.dll)

[himitsu]

Zitat:

Zitat von SirThornberry

funktionen wie URLDownloadToFile sollte es auch schon unter Delphi3 geben. Wenn nicht kannst du die Funktion manuell laden (uses: urlmon oder DLL: urlmon.dll)

URLDownloadToFile muß eigentlich in jedem Delphi seit D2 funktionieren, da es ja nur ein WinAPI-Aufruf ist, welcher nichts mit Delphi zu tun hat.
Falls es nicht im Delphi drin ist, muß man halt nur die nötige "Schnittstelle" einbauen ... wie steht im MSDN.

[EDatabaseError]

danke ich probiers heut abend aus. bye

Mfg
Tobi

[_frank_]

nutze das unter D3 ohne zusätzliche units/VCL:

Delphi-Quellcode:

uses wininet;

function DownloadFile(url,filename: string) : Boolean ;
var
  Stream : TFileStream ;
  NetHandle : HINTERNET ;
  UrlHandle : HINTERNET;
  BytesRead : DWORD ; // DWORD, not cardinal
  Buffer : array[0..1024] of Char ;
begin
  Result := false ;
  NetHandle := InternetOpen('Delphi download function',
                            INTERNET_OPEN_TYPE_DIRECT,
                            Nil,Nil,0);
  if Assigned(NetHandle) then
  begin
    UrlHandle := InternetOpenUrl(NetHandle, PChar(url), nil, 0,
                                 INTERNET_FLAG_RELOAD, 0);
    if Assigned(UrlHandle) then
    begin
      FillChar(Buffer, SizeOf(Buffer), 0);
      Stream := TFileStream.Create(filename,fmCreate);
      try
        while InternetReadFile(UrlHandle, @Buffer, SizeOf(Buffer), BytesRead) and (BytesRead > 0) do
          Stream.WriteBuffer(Buffer, BytesRead);
        Result := TRUE;
       finally
        Stream.Free;
      end;
    end; // if Assigned(UrlHandle)
    InternetCloseHandle(UrlHandle);
  end;
  InternetCloseHandle(NetHandle);
end;

HTH Frank

[davar]

Zitat:

Zitat von _frank_

nutze das unter D3 ohne zusätzliche units/VCL:

Delphi-Quellcode:

uses wininet;

function DownloadFile(url,filename: string) : Boolean ;
var
  Stream : TFileStream ;
  NetHandle : HINTERNET ;
  UrlHandle : HINTERNET;
  BytesRead : DWORD ; // DWORD, not cardinal
  Buffer : array[0..1024] of Char ;
begin
  Result := false ;
  NetHandle := InternetOpen('Delphi download function',
                            INTERNET_OPEN_TYPE_DIRECT,
                            Nil,Nil,0);
  if Assigned(NetHandle) then
  begin
    UrlHandle := InternetOpenUrl(NetHandle, PChar(url), nil, 0,
                                 INTERNET_FLAG_RELOAD, 0);
    if Assigned(UrlHandle) then
    begin
      FillChar(Buffer, SizeOf(Buffer), 0);
      Stream := TFileStream.Create(filename,fmCreate);
      try
        while InternetReadFile(UrlHandle, @Buffer, SizeOf(Buffer), BytesRead) and (BytesRead > 0) do
          Stream.WriteBuffer(Buffer, BytesRead);
        Result := TRUE;
       finally
        Stream.Free;
      end;
    end; // if Assigned(UrlHandle)
    InternetCloseHandle(UrlHandle);
  end;
  InternetCloseHandle(NetHandle);
end;

HTH Frank

Das habe ich jetzt mal so übernommen, aber das Resultat ist eine Datei, zwar mit dem richtigen Namen aber nur 1,26 KB gross statt ca. 4 MB.