请求高手翻译PASCAL

[nickgg]

下面的Delphi函数怎么翻译到C++Builder？
//$BCB\Source\VCL\ScktMain.pas
function TSocketDispatcherThread.CreateServerTransport: ITransport;
var
SocketTransport: TSocketTransport;
begin
SocketTransport := TSocketTransport.Create;
SocketTransport.Socket := ClientSocket;
SocketTransport.InterceptGUID := FInterceptGUID;
Result := SocketTransport as ITransport;
end;

多谢!!

[BlueDeepOcean]

ITransport __fastcall TSocketDispatcherThread::CreateServerTransport(void)
{
TSocketTransport *SocketTransport = new TSocketTransport;
SocketTransport->Socket = ClientSocket;
SocketTransport->InterceptGUID = FInterceptGUID;
return (ITransport*)SocketTransport;
}

[nickgg]

楼上的ITransport 与 (ITransport*)匹配吗？

[BlueDeepOcean]

晕，写习惯了，顺手就加了一个*，但是也没什么，你可以在函数的返回类型前面再加一个嘛。

[DeadWolf]

ITransport* TSocketDispatcherThread::CreateServerTransport()
{
TSocketTransport* SocketTransport=NULL;

SocketTransport =new TSocketTransport();
SocketTransport->Socket = ClientSocket;
SocketTransport->InterceptGUID = FInterceptGUID;
return (ITransport*)SocketTransport ;
}

[nickgg]

自己解决了！
发现_di_ITransport不等价于ITransport *但等价于Delphi的ITransport!!!

_di_ITransport TSocketDispatcherThread::CreateServerTransport(void)
{
TSocketTransport* SocketTransport=NULL;

SocketTransport =new TSocketTransport();
SocketTransport->Socket = ClientSocket;
SocketTransport->InterceptGUID = FInterceptGUID;
return *SocketTransport ;
}

[BlueDeepOcean]

恭喜楼主自己解决了，接分了。

[VirtualDesktop]

接分~呵呵~