請問VC CallBack函式轉換成Delphi |
缺席
|
mine
中階會員 ![]() ![]() ![]() 發表:28 回覆:129 積分:56 註冊:2004-03-31 發送簡訊給我 |
[code cpp] VOID CALLBACK WINAPI FrameCallBack( LPVOID lpParam1, LPVOID lpPoint, LPVOID lpContext ) { UCHAR *pRgb = (UCHAR*)lpParam1; OutputDebugString( "Frame CallBack!!!!!!!"); CDLCWBDEMODlg* pDLDlg = (CDLCWBDEMODlg*)lpContext; static Count = 0; TCHAR Buf[256]; _stprintf( Buf, "%d", Count ); OutputDebugString( Buf ); pDLDlg->ReadPin( Count % 8 ); Count ; } [/code] [code delphi] procedure FrameCallBack(lpParaml:Pointer;lpPoint:Pointer;lpContext:Pointer);stdcall; var pRgb:Byte; TChar:array[0..255] of char; pDLDlg:TForm1; Lpin:Integer; begin pRgb:=Byte(lpParaml); Form1.Edit1.Text:=IntToStr(Count mod 8); Form1.ReadPin(Count mod 8); Count:=Count 1; end; [/code] c的呼叫 HqDLSetFrameCallback( m_hDevice, FrameCallBack, this ); Delhi HqDLSetFrameCallback( m_hDevice, @FrameCallBack, Form1); 請問這是一個CCD DLC300-L的部份碼 由於並未提供Delphi SDK(目錄上說有,拿到的光碟只有C) 請教各位前輩這樣改為Delphi對嗎 請大大指正 謝謝 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |