使用TBlobField.BlobType,如下:
var
MS: TMemoryStream;
begin
MS := TMemoryStream.Create;
try
TBlobField(YourImageField).SaveToStream(MS);
// Must reset to the beginning of the stream
MS.Position := 0;
Image1.Picture.Bitmap.LoadFromStream(MS);
finally
MS.Free;
end;end;
参见:
http://www.csdn.net/expert/topic/616/616539.xml?temp=.1332209
var
MS: TMemoryStream;
begin
MS := TMemoryStream.Create;
try
TBlobField(YourImageField).SaveToStream(MS);
// Must reset to the beginning of the stream
MS.Position := 0;
Image1.Picture.Bitmap.LoadFromStream(MS);
finally
MS.Free;
end;end;
参见:
http://www.csdn.net/expert/topic/616/616539.xml?temp=.1332209
至于怎么打印,你可以AssignPrn直接打印