如何调用系统的画板，读取数据流中的图形数据并显示？？

Question

如题

Answer 1

use shellapi;procedure TForm1.Button1Click(Sender: TObject);
begin
  opendialog1.Execute;
  ShellExecute(handle, 'open', 'mspaint.exe', pChar(opendialog1.FileName), nil, SW_SHOWDEFAULT);
end;

Answer 2

winexec('mspaint.exe', sw_shownormal);

Answer 3

//将内存流中的 JPEG 图像显示出来procedure DrawJpegStream(AStrem: TMemoryStream; AImage: TImage);varFJPEGImage: TJPEGImage;beginFJPEGImage := TJPEGImage.Create;tryFJPEGImage.LoadFromStream(AStream);AImage.Width := FJPEGImage.Width;AImage.Height := FJPEGImage.Height;AImage.Canvas.Draw(0, 0, FJPEGImage);finallyFJPEGImage.Free;end;end;

Answer 4

楼上兄弟,那怎么用系统画板打开保存在JPEG对象中的图象信息？？？

Answer 5

1、利用剪贴板
  clipboard.assign(FJPEGImage);
  然后运行画笔，利用类似sendkey完成在画笔中的粘贴；2、先利用FJPEGImage.SaveToFile保存成文件
然后
ShellExecute(0, 'open', Pchar('你的文件名'), nil, nil, SW_NORMAL);

Answer 6

如果你的系统中，jpg文件没有和画笔关联也可以这样做
winexec('mspaint.exe ' + '你的文件', sw_shownormal);

Answer 7

jiezhi(西域浪子) :
   我学习了你的代码，茅塞顿开！我想请教，我的图象是存于ADO数据集的字段中，怎样处理呢？