Delphi: Indy component (err.10061)

4JOKE

Nedavno som zacal pouzivat Indy komponenty a skusil som cez ne stiahnut obrazok a nacitat ho, no vzdy mi to vyhodi error 10061. Este sa v tom moc nevyznam tak neviem najst chybu.

Zdrojak:

Kód: Vybrať všetko

procedure Tform1.LoadPicture(code:string);
var
memStream: TMemoryStream;
jpg: TJPEGImage;
begin
    memStream := TMemoryStream.Create;
    try
       try
          idhttp1.Get(code, memStream);
            except
                on E: Exception do
                begin
                    ShowMessage('Cannot download Image: ' + E.Message);
                    Exit;
                end;
            end;
            try
                jpg := TJPEGImage.Create;
                try
                    memStream.Position := 0;
                    jpg.LoadFromStream(memStream);
                    Image1.Picture.Assign(jpg);
                finally
                    jpg.Free;
                end;
            except
                on E: Exception do
                begin
                    ShowMessage('Nie je mozne nacitat obrazok: ' + E.Message);
                    Exit;
                end;
            end;
        finally
            memStream.Free;
        end;
    end;

vdaka

4JOKE

vratil som sa nakoniec k synapse komponentom v ktorych sa aspon trocha vyznam.
tento kod by mal stiahnut obrazok z adresy a ulozit do test.jpg no nefunguje to:

Kód: Vybrať všetko

var 
TempStream : TFileStream;

TempStream := TFileStream.Create('test.jpg',fmCreate);
HttpGetBinary(adresa, TempStream);
Tempstream.free

...ulozi mi to prazdne test.jpg

...skusil som to upravit aj do podoby aku potrebujem:

Kód: Vybrať všetko

var
obr:TJPEGImage;
TempStream : TFileStream;

obr:=TJPEGImage.Create;
TempStream := TFileStream.Create('test.jpg',fmCreate);
HttpGetBinary(code, TempStream);
jpg2.LoadFromStream(TempStream);
image1.Picture.Assign(jpg2);

...pri tomto mojom pokuse mi to vyhodi JPEG Error #42

nevie niekto co dalej s tym?