Function int CameraSubArea() LIBRARY "CameraDll.dll"
Function Boolean CameraToBmp (ref string pFilename) LIBRARY "CameraToBmp.dll"
直接调用QQ的DLL
integer ii_return_msg
ii_return_msg =CameraSubArea()
IF ii_return_msg =1 THEN
string is_filepath,is_filename,is_file_allname
is_filepath =g_szpath+"\EmailTemp\"
is_filename ="temp"+string(time(now()),"hhmmss")+".bmp"
is_file_allname =is_filepath + is_filename
IF CameraToBmp(ref is_file_allname) THEN
///////
end if
END IF