发信人: finlove (荒野之狼), 信区: BorlandDev
标  题: 从blob字段中提取图片 
发信站: 哈工大紫丁香 (Tue Jan 22 12:19:16 2002) , 转信

procedure TForm1.Button1Click(Sender: TObject); 
begin 
Image1.Picture.Bitmap.Assign(Table1Bitmap); 
end; 

procedure TForm1.Button2Click(Sender: TObject); 
var 
B: TBitmap; 
begin 
B := TBitmap.Create; 
try 
B.Assign(Table1Bitmap); 
Image1.Picture.Bitmap.Assign(B); 
finally 
B.Free; 
end; 
end; 






--

※ 来源:．哈工大紫丁香 http://bbs.hit.edu.cn [FROM: 211.97.214.52]