Скачать изображение

[Fr0sT]

Цитата faust777 @ 26.05.13, 15:34

А в общем, как то так)..

А удалять поток кто будет?

Добавлено 27.05.13, 06:56
Я бы сделал так (схематично, некомпилируемо):

const
  MSG_IMGGOT = WM_APP + 1;
 
TDownThread.Create(URL: string; ResponseWnd: HWND);
begin
  fURL := URL;
  fResp := ResponseWnd;
  inherited Create(False);
  FreeOnTerminate := True;
end;
 
TDownThread.Execute;
begin
  ... Str := GetURL(fURL); ...
  Img := TJPEG.Create;
  Img.LoadFromStream(S);
  ... // free idHTTP, Stream...
  PostMessage(fResp, MSG_IMGGOT, 0, LPARAM(Img));
end;
 
TForm.Click
begin
  TDownThread.Create('blabla.com/1.jpg', Handle);
end;
 
TForm.MsgImgGot(Msg: TMessage); // message MSG_IMGGOT;
var
  Img: TJPEG;
begin
  Img := TJPEG(Msg.lParam);
  Image1.Assign(Img);
  Img.Free;
end;

Сообщение отредактировано: Fr0sT - 27.05.13, 06:58

[antonn]

оно не свалится с ошибкой без синхронизации? я бы эвентом сделал передав через него указатель на картинку и вызвав его в методе с синхронизацией. ну а при создании потока обработчик в форме повесил бы

[Protector]

medved_68,

destructor TDownloader.Destroy;
begin
  inherited;
end;

Добавлено 27.05.13, 11:42
Fr0sT, Вот обращение к изображению по хендлу -это ,как по мне, выход .

Добавлено 27.05.13, 11:45

Цитата antonn @ 27.05.13, 10:41

оно не свалится с ошибкой без синхронизации?

,
Нет

Сообщение отредактировано: Protector - 27.05.13, 11:46

[Protector]

Fr0sT,
Следуя вашей идеи :

procedure TDownloader.Execute;
var
  I:TidHTTP;
begin
inherited;
  i:=TIdHTTP.Create(nil);
try
try
  I.Get(URL,S);
except
end;
  SetImg;
finally                                                          
  FreeAndNil(i);
end;
 
end;
 
procedure TDownloader.SetImg;
var
  copydata:COPYDATASTRUCT;
begin
    ZeroMemory(@copydata, SizeOf(TCopyDataStruct));
    copydata.dwData:=0;
    copydata.cbData:=S.Size;
    copydata.lpData:=S.Memory;
    SendMessage(Self.hCanv,WM_COPYDATA,Longint(Self.hCanv),lparam(@copydata));
end;
 
procedure TForm1.RecvData(var Msg: TWMCopyData);
var
  S:TMemoryStream;
  J:TJPEGImage;
  Data: COPYDATASTRUCT;
begin
  Data:=Msg.CopyDataStruct^;
  S:=TMemoryStream.Create;
  J:=TJPEGImage.Create;
try
  S.Write(Data.lpData^,Data.cbData);
  S.Position:=0;
  J.LoadFromStream(S);
  Image1.Assign(J);
finally
  S.Free;
  J.Free;
end;
end;

А изображение передается поврежденным.

Сообщение отредактировано: Protector - 27.05.13, 13:59

[Fr0sT]

Цитата antonn @ 27.05.13, 10:41

оно не свалится с ошибкой без синхронизации?

C чего бы? Изображение создается в потоке и отправляется форме, после этого в потоке не используется. Таким образом у меня передаются объекты и строки и ничего не валится.

Цитата Protector @ 27.05.13, 13:59

Следуя вашей идеи :

Нет уж, пардоньте, в моей идее не было ничего от приведенной каши.
Начать хотя бы с того, что судя по названию поля hCanv оно содержит хэндл явно не главной формы. А оно должно посылаться именно главной форме.
Затем, copydata - на фига? Если уж так не хочется делать true асинхронный способ - пожалуйста, SendMessage(MainFormHandle, MSG_IMGGOT, 0, LPARAM(Img)) будет синхронным (пока форма не обработает сообщение - поток ждет). Также можно передать и мемористрим, без необходимости копировать его. Метод в таком случае сокращается до

Thread.Execute;
begin
  ...download to stream...
  SendMessage(MainFormHandle, MSG_IMGGOT, 0, LPARAM(Str));
  Str.Free;
end;
 
MainForm.MsgImgGot;
begin
  Str := TMemoryStream(Msg.lParam);  
  J.LoadFromStream(S);
  Image1.Assign(J);
  J.Free;
end;

Добавлено 27.05.13, 14:34
Тем не менее, это не ТРУ, и я это посоветовал исключительно в образовательных целях.

[Protector]

Fr0sT, результат идентичен .

Добавлено 27.05.13, 15:01

Цитата Fr0sT @ 27.05.13, 14:32

Тем не менее, это не ТРУ, и я это посоветовал исключительно в образовательных целях.

А что же трю?

[antonn]

Цитата

C чего бы? Изображение создается в потоке и отправляется форме, после этого в потоке не используется. Таким образом у меня передаются объекты и строки и ничего не валится.

я никогда так не делал и не разбирался, но думал что в сообщении придет указатель на объект созданный в потоке

[medved_68]

Цитата Protector @ 27.05.13, 11:40

medved_68,
CollapsedWrap disabledLine numbers off

destructor TDownloader.Destroy;
begin
inherited;
end;

А. Тогда вопросов нет. Особенно в разрезе:

Цитата Protector @ 26.05.13, 15:14

i:=TIdHTTP.Create(nil);

[Protector]

medved_68,Это локальная переменная .

[Pavia]

Вопрос для Protector

Цитата Protector @ 27.05.13, 16:30

medved_68,Это локальная переменная .

А напомни, где выделяется память для объектов на стеке или в куче?
И когда он освобождается?

Сообщение отредактировано: Pavia - 27.05.13, 16:34

[Protector]

Pavia,

procedure TDownloader.Load;
var
  I:TidHTTP;
  S:TMemoryStream;
  JPEG: TJPEGImage;
begin
  i:=TIdHTTP.Create(nil);
  S:=TMemoryStream.Create;
  JPEG:=TJPEGImage.Create;
try
  I.Get(URL,S);
  S.Position:=0;
  Jpeg.LoadFromStream(S);
  Image.Picture.Assign(JPeg);
finally
  i.Free; //Вот где .
  S.Free;
  JPeg.Free;
end;
end;

[medved_68]

Цитата Pavia @ 27.05.13, 16:32

И когда он освобождается?

Цитата Protector @ 27.05.13, 16:37

finally
i.Free; //Вот где .

Как там по жанру должно быть? А...Вопросов не имею...Так?

[Protector]

Мне кажется ,сама Еврика вызывает утечку. Чем еще можно проверять утечки памяти?

Добавлено 27.05.13, 16:46
medved_68,По жанру , в этом месте идет оператор case.

[Pavia]

Protector
http://www.gunsmoker.ru/2009/05/blog-post_24.html
Советую при поиске утечки потренироваться на примерах.

[antonn]

так все таки в #22 я неправ и через сообщение (не copydata) отправляется полная копия (новый экземпляр) или все таки ссылка (и автору кода пока просто светит удача (например, что объект не уничтожился при завершении потока до того как с ним закончилась работа вне потока))?