D
daocaoren0824
Unregistered / Unconfirmed
GUEST, unregistred user!
我做个视频监控程序,在视频捕获上用了DSPACK,我这些都已解决,就是在拍照上遇到点问题,我对监视画面进行拍照,不知为什么,明明有图象但我每次拍下来,保存的结果都是 0K,大家遇到该类问题吗?
是不是设置问题啊,请给与提示? 在线等、、、、、、、、、
代码如下:
procedure TFrmMain.Btn_Pic2Click(Sender: TObject);
var
ABitmap: TBitmap;
AStream: TMemoryStream;
sPicName,sPicSavePath:string;
//两种捕捉方式
begin
sPicName:=FormatDateTime('yymmddhhnnss',Now);
sPicSavePath:=ExtractFilePath(Application.ExeName)+'picture/'+spicName+'End.bmp';
{ AStream := TMemoryStream.Create;
try
VideoWindow2.VMRGetBitmap(AStream);
AStream.SaveToFile(sPicSavePath);
finally
AStream.Free; }
ABitmap := TBitmap.Create;
try
SampleGrabber1.GetBitmap(ABitmap);
ABitmap.SaveToFile(sPicSavePath);
finally
ABitmap.Free;
end;
end;
是不是设置问题啊,请给与提示? 在线等、、、、、、、、、
代码如下:
procedure TFrmMain.Btn_Pic2Click(Sender: TObject);
var
ABitmap: TBitmap;
AStream: TMemoryStream;
sPicName,sPicSavePath:string;
//两种捕捉方式
begin
sPicName:=FormatDateTime('yymmddhhnnss',Now);
sPicSavePath:=ExtractFilePath(Application.ExeName)+'picture/'+spicName+'End.bmp';
{ AStream := TMemoryStream.Create;
try
VideoWindow2.VMRGetBitmap(AStream);
AStream.SaveToFile(sPicSavePath);
finally
AStream.Free; }
ABitmap := TBitmap.Create;
try
SampleGrabber1.GetBitmap(ABitmap);
ABitmap.SaveToFile(sPicSavePath);
finally
ABitmap.Free;
end;
end;