Форум на Исходниках.RU

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

Fr0sT — Tue, 28 May 2013 05:53:24 +0000

Fr0sT: antonn, ну придет указатель на объект, созданный в потоке. И? Он же динамически создан, а не на стеке. Всё тут нормально.

Цитата Protector @ 27.05.13, 14:48

А что же трю?

См. первый мой пост

Цитата Protector @ 27.05.13, 14:48

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

А проверь сначала без потока. Если не сработает - приведи полный код потока и обработчиков формы на данный момент

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

antonn — Tue, 28 May 2013 05:31:17 +0000

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

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

Pavia — Mon, 27 May 2013 16:51:17 +0000

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

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

Protector — Mon, 27 May 2013 16:45:00 +0000

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

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

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

medved_68 — Mon, 27 May 2013 16:42:51 +0000

medved_68:

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

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

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

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

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

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

Protector — Mon, 27 May 2013 16:37:33 +0000

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;

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

Pavia — Mon, 27 May 2013 16:32:56 +0000

Pavia: Вопрос для Protector

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

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

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

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

Protector — Mon, 27 May 2013 16:30:58 +0000

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

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

medved_68 — Mon, 27 May 2013 16:14:28 +0000

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);

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

antonn — Mon, 27 May 2013 15:38:26 +0000

antonn:

Цитата

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

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

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

Protector — Mon, 27 May 2013 14:48:22 +0000

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

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

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

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

А что же трю?

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

Fr0sT — Mon, 27 May 2013 14:32:32 +0000

Fr0sT:

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

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

Цитата 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 — Mon, 27 May 2013 13:59:33 +0000

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

procedure TDownloader.Execute;

var

I:TidHTTP;

begin

inherited;

i:=TIdHTTP.Create(nil);

try

I.Get(URL,S);

except

end;

SetImg;

finally

FreeAndNil(i);

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;

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

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

Protector — Mon, 27 May 2013 11:40:37 +0000

Protector: medved_68,

destructor TDownloader.Destroy;

begin

inherited;

end;

:huh:

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

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

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

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

,
Нет :)

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

antonn — Mon, 27 May 2013 10:41:25 +0000

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

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

Fr0sT — Mon, 27 May 2013 06:48:34 +0000

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;

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

medved_68 — Mon, 27 May 2013 03:08:17 +0000

medved_68:

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

Это весь код .

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

А в чем причина утечки памяти?

Деструктор потока покажи. :D

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

faust777 — Sun, 26 May 2013 21:42:25 +0000

faust777:

Цитата Mr.Delphist @ 26.05.13, 19:19

Если написать вместо except слово finally, то можно обо....

Тут уж кому как) да и тема не про то..вроде)..

Щас то в чём уже проблема.. ведь очевидно что зависаний ни каких нет..
А утечки..Без них Indy наверно ни когда не будет... Насколько критично это, вот в чём вопрос..
Или как вариант ещё, сделать своё "закрытие программы"... что бы когда "юзер завершает приложение", всё остановливалось..очищалось..

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

Mr.Delphist — Sun, 26 May 2013 19:19:02 +0000

Mr.Delphist:

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

except
FreeAndNil(S);
FreeAndNil(HTTP);
JPeg.Free;
end;
if Assigned(S) then FreeAndNil(S);
if Assigned(JPEG) then JPEG.Free;
if Assigned(HTTP) then FreeAndNil(HTTP);
end;

Если написать вместо except слово finally, то можно обойтись одним экземпляром удалений ресурсов.
Единственный ньюанс - ожидается ли подавление исключений? Или это такой side-effect?

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

Protector — Sun, 26 May 2013 15:54:59 +0000

Protector: faust777,

constructor TDownloader.Create(const URL: string; var Img: TImage);

begin

inherited Create(false);

Self.Url:=URL;

Self.Image:=Img;

Self.FreeOnTerminate:=true;

end;

Это весь код .

Добавлено 26.05.13, 15:58

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

компилятор это даже запустить не даст..

Не утрируйте .Все работает ,корректно пока не наступает описанная ситуация .

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

faust777 — Sun, 26 May 2013 15:50:23 +0000

faust777: для VCL например)

А уж чего там каждую или как..извени..не телепат.

Вот это ты что показал?

S.Position:=0;

Jpeg.LoadFromStream(S);

try

Image.Picture.Assign(Jpeg);

except

end;

finally

i.Free;

Такое в принципе не может работать. компилятор это даже запустить не даст..

Давай тогда больше когда своего, а не не понятные обрывки.

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

Protector — Sun, 26 May 2013 15:41:17 +0000

Protector:

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

Image.Picture.Assign(Jpeg);

:o это как у тебя "поток" определяет Где находиться Image?

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

type

TForm1 = class(TForm)

Button1: TButton;

Image1: TImage;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

TDownloader = class(TThread)

private

HTTP:TidHTTP;

JPEG: TJPEGImage;

procedure EndDown;

protected

procedure Execute; override;

public

constructor Create(CreateSuspended: Boolean);

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

TDownloader.Create(False);

end;

constructor TDownloader.Create(CreateSuspended: Boolean);

begin

inherited Create(CreateSuspended);

end;

procedure TDownloader.Execute;

var

S:TMemoryStream;

begin

HTTP:= TIdHTTP.Create(nil);

S:= TMemoryStream.Create;

JPEG:=TJPEGImage.Create;

try

HTTP.Get('http://forum.sources.ru/uploads/av-150083.jpg',S);

S.Position:=0;

JPEG.LoadFromStream(S);

Synchronize(EndDown);

except

FreeAndNil(S);

FreeAndNil(HTTP);

JPeg.Free;

end;

if Assigned(S) then FreeAndNil(S);

if Assigned(JPEG) then JPEG.Free;

if Assigned(HTTP) then FreeAndNil(HTTP);

end;

procedure TDownloader.EndDown;

begin

Form1.Image1.Picture.Assign(JPEG);

end;

Каждую с n картинок ,загружает отдельный поток .Зачем синхронизация?

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

faust777 — Sun, 26 May 2013 15:34:32 +0000

faust777:

Image.Picture.Assign(Jpeg);

:o это как у тебя "поток" определяет Где находиться Image?

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

type

TForm1 = class(TForm)

Button1: TButton;

Image1: TImage;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

TDownloader = class(TThread)

private

HTTP:TidHTTP;

JPEG: TJPEGImage;

procedure EndDown;

protected

procedure Execute; override;

public

constructor Create(CreateSuspended: Boolean);

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

TDownloader.Create(False);

end;

constructor TDownloader.Create(CreateSuspended: Boolean);

begin

inherited Create(CreateSuspended);

end;

procedure TDownloader.Execute;

var

S:TMemoryStream;

begin

HTTP:= TIdHTTP.Create(nil);

S:= TMemoryStream.Create;

JPEG:=TJPEGImage.Create;

try

HTTP.Get('http://forum.sources.ru/uploads/av-150083.jpg',S);

S.Position:=0;

JPEG.LoadFromStream(S);

Synchronize(EndDown);

except

FreeAndNil(S);

FreeAndNil(HTTP);

JPeg.Free;

end;

if Assigned(S) then FreeAndNil(S);

if Assigned(JPEG) then JPEG.Free;

if Assigned(HTTP) then FreeAndNil(HTTP);

end;

procedure TDownloader.EndDown;

begin

Form1.Image1.Picture.Assign(JPEG);

end;

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

Protector — Sun, 26 May 2013 15:14:53 +0000

Protector: Апдейт:

procedure TDownloader.Execute;

var

I:TidHTTP;

S:TMemoryStream;

JPEG: TJPEGImage;

begin

inherited;

i:=TIdHTTP.Create(nil);

S:=TMemoryStream.Create;

JPEG:=TJPEGImage.Create;

try

I.Get(URL,S);

except

end;

S.Position:=0;

Jpeg.LoadFromStream(S);

try

Image.Picture.Assign(Jpeg);

except

end;

finally

i.Free;

S.Free;

JPeg.Free;

end;

А в чем причина утечки памяти?

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

MBo — Sun, 26 May 2013 15:08:20 +0000

MBo: Всё не смотрел, но на будущее не помешает подумать, чему равно SizeOf(S)? (TMemoryStream)

И что должна делать волшебная строка?
S.Write(Pointer(S)^, SizeOf(S));

для чего @Image<>nil ?

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

Protector — Sun, 26 May 2013 14:40:54 +0000

Protector:

Цитата Pavia @ 25.05.13, 14:40

PS. Есть предположение что и загрузка сделана с ошибкой странно что работает.

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);

except

end;

S.Write(Pointer(S)^, SizeOf(S));

S.Position:=0;

Jpeg.LoadFromStream(S);

try

if Assigned(Image)and(@Image<>nil)and(not Self.Terminated) then

begin

Image.Picture.Assign(Jpeg);

end;

except

end;

finally

i.Free;

S.Free;

JPeg.Free;

end;

Добавлено 26.05.13, 15:05
MBo, Каким образом корректно обработать ситуацию ,когда поток еще грузит картинку ,а юзер завершает приложение?
У меня такая последовательность действий вызывает AV и Еврика показывает утечку памяти (i:=TIdHTTP.Create(nil); - здесь ).

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

MBo — Sun, 26 May 2013 13:47:37 +0000

MBo: Protector
чтобы развеять сомнения faust777, покажи, откуда вызывается метод Load

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

Protector — Sun, 26 May 2013 13:04:05 +0000

Protector: faust777,
Естественно,

TDownloader = class(TThread)

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

faust777 — Sun, 26 May 2013 12:44:50 +0000

faust777: Нужно во главе потока грузить.. Execute; а не в отдельных его процедурках типа .Load;....
тогда ни чего не будет тормозить..

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

Pavia — Sat, 25 May 2013 14:40:21 +0000

Pavia: 1) Что-бы загрузка не тормозила перерисовку, перерисовка должна быть отделена от загрузки.
Подсказка хранить картинку надо в TBitmap;
2) Что-бы загрузка не тор мазила не надо каждый раз устанавливать TCP и HTTP соединения. Держи их открытыми. Тот же принцип отдели загрузку от создания соединения.

Добавлено 25.05.13, 14:42
PS. Есть предположение что и загрузка сделана с ошибкой странно что работает.

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

Protector — Sat, 25 May 2013 14:21:08 +0000

Protector: Нужно скачать изображение по УРЛ и передать скаченную матрицу в TImage.
Пытался скачать изображение вот так:

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;

Но даже в потоке ,такой код тормозит перерисовку всей формы.Как быть?