各位大侠帮忙，C++转为DELPHI 200分 (100分)

请类用DELPHI实现。谢谢。
UINT __stdcall GetData(LPVOID pParam)
{
CWnd *wnd;
wnd = ::AfxGetApp()->m_pMainWnd;
int fsid = *(int *)pParam;
::SendMessage(wnd->GetSafeHwnd(),USER_MESSAGE_STEP,ID_PROGRESS_REVDATA_START,(LPARAM)MESSAGE_REVDATA_START);
HS_data_transmit_recv(wnd,fsid,0,(char *)lpvRevBuffFile,&g_nRevBuffFileLen);
if(g_nRevBuffFileLen<LEN_DATABASE[fsid])
{
::SendMessage(wnd->GetSafeHwnd(),USER_MESSAGE_STATUS,ID_MESSAGE_NORECORDRETURN,(LPARAM)MESSAGE_REVDATA_NORECORD);
return 0;
}
::SendMessage(wnd->GetSafeHwnd(),USER_MESSAGE_STEP,ID_PROGRESS_DATASAVE_START,(LPARAM)MESSAGE_SAVEDATA_START);
SaveResultToFile(fsid);
::SendMessage(wnd->GetSafeHwnd(),USER_MESSAGE_STEP,ID_PROGRESS_REVDATA_END,(LPARAM)MESSAGE_SAVEDATA_END);
return 0;
}

有这个代码好象没用呀，VC的类不能给DELPHI用，除非是虚函数

你看看TFileStream，那么VC类里面的东东，基本上TFileStream都有。

同意楼上的观点，Delphi里文件读写还是有的嘛！

至少有相对等的DELPHI代码吧。

再加一百分！！

各位大哥帮帮忙。

我觉得大家应该都会,只是太简单,且没有必要.
例如
CWnd *wnd;
-> Wnd: TwinControl;
wnd = ::AfxGetApp()->m_pMainWnd;
-> Wnd = Application.MainForm;
int fsid = *(int *)pParam;
-> fSid: integer;
fSid := Integer(pParam^)
没有意思

大家都会,但是,类库相关的东西是没有办法转的
你不就是要保存数据吗,楼上都说了,TFileStream就可以

>

自己已搞定。
如何撤消此问题？