兄弟们,我用500分寻求神龙卡的SDK取图问题。(100分)

  • 主题发起人 主题发起人 pengheping
  • 开始时间 开始时间
P

pengheping

Unregistered / Unconfirmed
GUEST, unregistred user!
兄弟们,我用500分寻求神龙卡的SDK取图问题。]
兄弟们,我用500分寻求神龙卡的SDK取图问题。
 
兄弟们,我用500分寻求神龙卡的SDK取图问题。如何来写这个方法。
 
你搞好了没有?如果没有我可以帮你试试。
 
to houling 兄。
我的问题还没搞定,请指点,绝对。500分,一分不少.
 
要公开还是发到你的信箱中?
 
算了,还是贴出来。
procedure TFMPPlayer.CapturePic(FileName: String);
var
PicSize: DWORD;
Buffer: Pointer;
BMP: TBitmap;
TempStream: TMemoryStream;
begin

if FStreamID <= 0 then
Exit;
Pause;
try
PicSize := FMPCapture(FStreamID, FMPF_PIC_DIB24, 0);
if PicSize > 0 then

begin

GetMem(Buffer, PicSize);
try
if FMPCapture(FStreamID, FMPF_PIC_DIB24, DWORD(Buffer)) = 0 then

begin

TempStream := TMemoryStream.Create;
TempStream.WriteBuffer(Buffer^, PicSize);
TempStream.Position := 0;
try
BMP := TBitmap.Create;
try
BMP.LoadFromStream(TempStream);
BMP.SaveToFile(FileName);
finally
BMP.Free;
end;

finally
TempStream.Free;
end;

end;

finally
FreeMem(Buffer);
end;

end;

finally
Play;
end;

end;
 
to houling 兄弟:
谢谢你,等兄弟我试试之后,如果没问题的话,决不食言。
 
试过了,行的。
 
图抓下来有什么作用吗?能否赐教!
 
别急有用的。
 
接受答案了.
 
后退
顶部