AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Netzwerke Delphi jpg mit idhttp downloaden --> jpg kaputt ??? warum das?
Thema durchsuchen
Ansicht
Themen-Optionen

jpg mit idhttp downloaden --> jpg kaputt ??? warum das?

Ein Thema von guitar1 · begonnen am 16. Aug 2007 · letzter Beitrag vom 16. Aug 2007
 
guitar1

Registriert seit: 9. Sep 2006
65 Beiträge
 
Turbo Delphi für Win32
 
#1

jpg mit idhttp downloaden --> jpg kaputt ??? warum das?

  Alt 16. Aug 2007, 21:45
hi,

ich downloade eine liste von jpg's mit hilfe von idHTTP, soweit klappt auch alles, die datei kommt auch im richtigen verzeichnis an. wenn ich mir die datei dann allerdings genauer ansehe ist sie statt der eigentlichen ca 1000kb nur ca 12kb groß, und will ich sie mit irfanview öffnen kommt die meldung das der datei header nicht mehr lesbar ist ?!

Hat jemand eine idee woran das liegen könnte? wenn ich denn link in den browser eingeben komm ich zu dem bild und es ist alles in ordnung!, also am bild lieg es schon mal nicht, auch der link den idhttp bekommt ist der richtige.

mfg
andreas

PS: das ist das erste mal das ich mit indy arbeite, aber ich habe es nazu 1:1 aus einem beitrag hier im forum abgetippt, nichts desto troz ist hier noch mal ein bisschen code:

Delphi-Quellcode:
for I := 1 to pdl.Count - 1 do //i = 1 da der erste eintrag in dieser stringlist die url ist
  begin

    if Abbruch then
    begin
      break;
    end;

    url := pdl[0]+'/'+pdl[i];

    label10.Caption:= pdl[i];

    if edit4.Text = 'then
    begin
      Ziel := Pfad+'\'+pdlName+'\'+pdl[i];
    end
    else
    begin
      Ziel := Pfad+'\'+pdlName+'\'+Edit4.Text+' '+
                nullen(picnr)+IntToStr(picnr)+ExtractFileExt(pdl[i]);
    end;

    try
      lStream := TFileStream.Create(Ziel, fmCreate or fmShareDenyNone);
    try
      idHTTP1.Get(URL, lStream);
    finally
      lStream.Free;

    end;
    finally

    end;
    Memo1.lines.Add(TimeToStr(now)+' : Download von "'+pdl[i]+'" war erfolgreich.');
    picnr:= picnr+1;

    p:= round((100/pdl.Count) * (i));
    gauge1.Progress := p;

  end;
EDIT: zwei unrelevate sachen im code geändert
http://www.myspace.com/metalinc1
http://andi1007.funpic.de
Thomann Cyberstore mein Tipp für alle die etwas für den Musikgebrauch brauchen =)
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 08:43 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz