關於圖片儲存的問題 |
答題得分者是:max5020
|
reddefkimo
一般會員 發表:2 回覆:0 積分:0 註冊:2006-12-10 發送簡訊給我 |
|
max5020
資深會員 發表:30 回覆:277 積分:321 註冊:2003-06-04 發送簡訊給我 |
function ImageWrite(Field: TField; jFile: String; const FileLimit: Integer=128):Boolean;
var FS: TFileStream; begin Result:= false; if FileSizeKByte(jFile) > FileLimit then exit; if not (Field.DataSet.State in [dsInsert, dsEdit]) then Field.DataSet.Edit; try FS:= TFileStream.Create(jFile, fmOpenRead); try TBlobField(Field).LoadFromStream(FS); // Field.DataSet.Post; Result:= True; except Field.DataSet.Cancel; end; FS.Free; except Field.DataSet.Cancel; end; end; procedure ImageRead(Image: TImage; Field: TField); var stream: TMemoryStream; jpgImg: TJpegImage; begin Image.Picture:= nil; if Field.DataSet.Eof then exit; if Field.IsNull then exit; stream:= TMemoryStream.Create; jpgImg:= TJpegImage.Create; TBlobField(Field).SaveToStream(stream); Stream.Position:= 0; jpgImg.LoadFromStream(stream); Image.Picture.Assign(jpgImg); stream.Free; jpgImg.Free; end; |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |