[svshamov]

Здравствуйте. Вот незатейливый код.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44

procedure TgetJpg1Thread.Execute; var Stream: TMemoryStream;     IdHTTP: TIdHTTP;     s_url: String; //    Sender: TObject;     bmp: TBItmap;     jpg: TJpegImage; begin     Stream := TMemoryStream.Create();     jpg := TJpegImage.Create;     bmp := TBitmap.Create;     Try       IdHTTP := TIdHTTP.Create(NIL);       s_url := 'подставить урл';       IdHTTP.ReadTimeout := 500;       IdHTTP.ConnectTimeout := 500;       IdHTTP.HTTPOptions := [hoInProcessAuth];       IdHTTP.Get(s_url, Stream);       if stream.Size > 0 then         begin           Stream.SaveToFile('1.jpg'); //          Stream.Position := 0;           jpg.Loadfromfile('1.jpg');           bmp.Assign(jpg);           SetStretchBltMode(Form1.Image1.Canvas.Handle, HALFTONE);           Form1.Image1.Canvas.CopyRect(Form1.Image1.Canvas.ClipRect, bmp.Canvas, bmp.Canvas.ClipRect);           Form1.Image1.Picture.SaveToFile('333.jpg');          end;       IdHTTP.Disconnect;       IdHTTP.Free;       FreeAndNil(Stream);       FreeAndNil(bmp);       FreeAndNil(jpg);       Except         On E: Exception do           begin             IdHTTP.Disconnect;             IdHTTP.Free;             FreeAndNil(Stream);             FreeAndNil(bmp);             FreeAndNil(jpg);           end;     end;   end;

Смысл его в том, что он скачивает картинку из интернета и меняет её размер в соответствии с размером компонента TImage. Из обычной кнопки код корректно выполняется полностью. А если подставить этот код в Execute потока, то не отрабатывает строка:

Код:

1	Form1.Image1.Canvas.CopyRect(Form1.Image1.Canvas.ClipRect, bmp.Canvas, bmp.Canvas.ClipRect);

при этом скачивание и сохранение картинки в виде файла на диск из потока работает. Возможно сможете подсказать в чём проблема.

[lmikle]

Добавь синхронизацию твоего потока с главным потоком приложения.

[svshamov]

Сообщение от lmikle

Добавь синхронизацию твоего потока с главным потоком приложения.

вы имеете ввиду, что надо сделать так?
Synchronize(myProcedure);

а в myProcedure вставить проблемную строку, и myProcedure выполнится в основном потоке?

Но почему эта строка не работает в доп.потоке... вот в чём вопрос...

[lmikle]

Да, именно так.
Если правильно помню, то там заморочки с памятью между потоками.