200分只给一个人，是Delphi流操作比较慢吗？为何通过流然后绘制到Image上闪动比较厉害。求老大帮忙！！！！！！！！！

[OO_is_just_P]

CANON数码相机SDK回调函数，此处也可以通过参数将流格式化成jpg格式：
function ViewFinder_CallbackFunction(pBuf:pointer;Size:cdUInt32;Format:cdUInt32;Context : cdContext) : cdUInt32 stdcall;
begin
BmpStream.Clear;
BmpStream.WriteBuffer(pBuf^,Size);
BmpStream.Position :=0;
//BmpStream.SaveToFile('c:\a.Bmp');
Result :=cdOK;
end;


通过定时器绘制图像，定时器的Interval设置成多少都闪动的厉害：
procedure TfrmMain.ViewFinderTimerTimer(Sender: TObject);
begin
Image1.Picture.BitMap.LoadFromStream(BmpStream);
end;

[superyys]

好多分哦@

[superyys]

TImage有个IncrementalDisplay属性,试一下嘛

[OO_is_just_P]

我用VB写的同样代码，只是没有通过流操作，直接读取Buffer，然后通过定时器绘制图形，就基本没有闪动。

[OO_is_just_P]

VC写的同样代码，只是没有通过流操作，直接读取Buffer，然后通过定时器绘制图形，就基本没有闪动。

[SonicX]

记得有人重写了TIMAGE单元解决这个问题,原理就是开启双缓冲
另外的办法用的是TPaintBox
代码
var
B:TBitmap;
begin
B:=TBitmap.Create;
B.LoadFromStream(BmpStream);
PaintBox1.Canvas.CopyRect(PaintBox1.Canvas.ClipRect,B.Canvas,B.Canvas.ClipRect);
B.Free;
end;

[ffwin]

原理就是 双缓冲
先写到一个图上,然后再赋给要显示的图;

procedure TfrmMain.ViewFinderTimerTimer(Sender: TObject);
var
Bitmap: TBitMap;
begin
Bitmap := TBitMap.Create;
Bitmap.LoadFromStream(BmpStream);
// Image1.Picture.BitMap.LoadFromStream(BmpStream);
Image1.Picture.BitMap.Canvas.Draw(0, 0, Bitmap);
Bitmap.Free;
end;

[wudi_1982]

foxyy8888 (古来圣贤皆寂寞，惟有饮者留其名！)

抽空喝上两杯！

[GARNETT2183]

使用缓冲来解决吧...

[befree]

MASM写的同样代码，只是没有通过流操作，直接读取Buffer，然后通过定时器绘制图形，就基本没有闪动。

[befree]

开个玩笑,delphi不比vb慢的
可能你调用的问题

[wudi_1982]

关于你的问题，使用缓冲来解决是比较好的办法。。。

[OO_is_just_P]

谢谢SonicX(SonicX)和ffwin()
每个人100分吧。

[lvyongheng]

請問楼主:err = CDStartViewfinder(m_hSource,FILEFORMAT_BMP,ViewFinderCallBackFun,(cdContext)this );
这是VC++的示例程序原码,为什么ViewFinderCallBackFun回调函数不能被调用?ViewFinderCallBackFun就是不启动.