Einzelnen Beitrag anzeigen

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, 20: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