Download-Programm

[s-off]

Mit ein bissel Überlegung und Betrachtung der anderen Einträge in der Uses-Klausel, hättest Du gemerkt, dass es 'IdBaseComponent' lauten muss :zwinker:

Trotzalledem musst Du die Komponenten natürlich erst installieren. Du findest einen Link dorthin, sowie ein Tutorial zu den Komponenten hier.

[Alex_XP]

Ist ja schön und gut, es funktioniert aber trotzdem nicht.

Außerdem sagte ich ja bereits oben

Zitat:

Bei den anderen sachen ist es genauso.

daher liegt es also nicht am fehlenden I

Lade mir die Komponenten dann mal runter

[Kevin]

Zitat:

Zitat von Alex_XP

Lade mir die Komponenten dann mal runter

Und dann wunderst Du Dich, daß die Komponenten (noch) nicht gefunden werden...?! :gruebel:

[s-off]

Zitat:

Zitat von s-off

Trotzalledem musst Du die Komponenten natürlich erst installieren.

:zwinker:

[Rastaman]

URLDownloadToFile ist doch viel einfacher und braucht keine Indys.

[s-off]

Zitat:

Zitat von Rastaman

URLDownloadToFile ist doch viel einfacher und braucht keine Indys.

Sehr schön, kannte ich noch gar nicht :thumb:

Delphi-Quellcode:

Procedure TForm1.Button2Click(Sender: TObject);
Const
   sSOURCE: String = 'http://www.delphipraxis.net/templates/DPClassicBlue/images/logo_left.gif';
   sTARGET: String = 'C:\Download\Test.gif';
Begin
   URLDownloadToFile(Nil, PChar(sSOURCE),PChar(sTARGET), 0, Nil);
End;

Funktioniert einwandfrei! Man lernt nie aus - danke :-D

[Klaus01]

Zitat:

Zitat von Rastaman

URLDownloadToFile ist doch viel einfacher und braucht keine Indys.

Hallo Rastaman,

muß ich mir auch notieren und wenn ich es brauche auch wiederfinden.

Grüße
Klaus

[IceTube]

Zitat:

URLDownloadToFile ist doch viel einfacher und braucht keine Indys.

^Indy ist doch nicht SO schwer !?!

[s-off]

Zitat:

Zitat von IceTube

Zitat:

URLDownloadToFile ist doch viel einfacher und braucht keine Indys.

^Indy ist doch nicht SO schwer !?!

Hmpf, darum geht es doch gar nicht. Freu Dich doch, dass jemand eine Alternative vorstellt, die mit Hausmittelchen auskommt und keinerlei Drittkomponenten benötigt...
Also ich habe mich über 'URLDownloadToFile' sehr gefreut :!:

[Rastaman]

Ich hab mir ma die Mühe gemacht eine Funktion mit Downloadgeschwindigkeit zu basteln für größere Dateien.
Habe hier allerdings nur VC installiert, werde alles aber morgen so gut es geht nach Delphi übersetzen.
Hat auch den Vorteil, dass das Programm nicht komplett einfriert.
Wer grad Lust hat kann mir das Übersetzen ja schonma abnehmen :-D

Code:

bool DownloadFile(const char *lpszURL, const char *lpszFile)
{
   bool   result = false;
   int      kbpsCounter = 0;
   int      kbps;
   DWORD   ticks, bytesRead;
   BYTE   buffer[1024];

   FILE   *hDLFile;

   HINTERNET hSession, hRequest;

   /* Session öffnen */
   hSession = InternetOpen("AppTitel", INTERNET_OPEN_TYPE_DIRECT, NULL, NULL, 0);
   if (hSession != NULL)
   {
      /* URL öffnen */
      hRequest = InternetOpenUrl(hSession, lpszURL, NULL, 0, INTERNET_FLAG_RELOAD, 0);
      if (hRequest != NULL)
      {
         /* Download starten 
            Vllt checken ob Datei schon existiert? */
         hDLFile = fopen(lpszFile, "wb"); 
         if (hDLFile != NULL)
         {
            ticks = GetTickCount();
            while (true)
            {
               /* Daten auslesen */
               if (InternetReadFile(hRequest, buffer, 1024, &bytesRead) ==   false)
               {
                  break;
               }

               /* kbps jede Sekunde berechnen */
               kbpsCounter += bytesRead;
               if (ticks <= (GetTickCount() - 1000))
               {
                  kbps = kbpsCounter / 1024;
                  printf("%d kb/s\n", kbps);   //kbps ausgeben
                  kbpsCounter = 0;
                  ticks = GetTickCount();
               }

               /* In Datei schreiben */
               if (bytesRead != 0) 
               {
                  fwrite(buffer, bytesRead, 1, hDLFile);
               }
               else   // Download beendet
               {
                  result = true;
                  break;
               }

            }
            fclose(hDLFile);
         }
         InternetCloseHandle(hRequest);
      }
      InternetCloseHandle(hSession);
   }
   return result;
}

Aufruf:

Code:

DownloadFile("http://www.Delphipraxis.net", "index.html");