经过多次试验，总是莫名奇妙出错，我想原因可能就是这个线程安全吧，那么即然这么多VCL都是线程不安全的，那么还能不能实现做一个可以后台打开图片的浏览器呢？

在線程里如果要更動以上元件，請先用 Synchronize 函數

procedure TWebLine.Execute; // TWebLine是TThread
var
temp:string ;
x: integer;
begin
if proxys<>'' then begin
try
GetContent:='';
FTimer.Enabled:=true;
http.get(targurl);
Synchronize(UpdateMemo);
except
on Exception do begin
Synchronize(xUpdateMemo);
end;
end;
end;
end;

procedure TWebLine.UpdateMemo;
begin
Form2.Memo1.Lines.text :=GetContent;
Form2.image1.picture.bitmap.canvas.textout(100,100,GetContent );
end;

------
歡迎在大陸的台商加入我們的行列
台商小棧 www.twgocn.com