哪位大神有delphi讀取圖片的教程，想以二進制的形式讀取JPG、DICOM等圖片
還有誰知道TDICOMX控制元件哪里可以下載。
uj5u.com熱心網友回復：
function LoadImage (var Image: TImage; DataSet: TDataSet; ImgFieldName: String): Boolean;
var f: TField;
stream: TMemoryStream;
jpg: TJpegImage;
begin
result := False;
Image.Picture.Assign(nil);
if not DataSet.Active then exit;
if DataSet.RecordCount<1 then exit;
f := DataSet.FindField(ImgFieldName);
if f = nil then exit;
if not f.IsBlob then exit;
if f.IsNull then exit;
stream := TMemoryStream.Create; try
TBlobField(f).SaveToStream(stream);
jpg := TJpegImage.Create; try
stream.Position := 0;
try
jpg.LoadFromStream(stream);
Image.Picture.Assign(jpg);
result := True;
except
MessageBox (0, PChar('該欄位保存的不是JPG圖片資料:'#13#10+ImgFieldName), '錯誤', MB_OK or MB_ICONSTOP);
end;
finally
jpg.Free;
end;
finally
stream.Free;
end;
end;
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/49309.html
標籤：VCL組件開發及應用
上一篇：使用delphi的idudpserver有沒有辦法接受任意一個埠的資料。
下一篇：delphi 處理PDF控制元件