ÓÃdelphiµ÷ÓÃvcдµÄdll³ö´í£¿

ÏÂÃæÊÇVC£º
typedef struct plog
{
int log_id;//¼Ç¼±àºÅ
char userName[20];//ʹÓÃÕß
char ip[20];//ʹÓÃIP
char content[50];//ÈÕÖ¾ÄÚÈÝ
}plog;

//Ìí¼ÓʹÓüǼ
extern "C" __declspec(dllexport) void createLog(plog log);

delphi£º
TDBPlog = record
  log_id:Integer;//¼Ç¼±àºÅ
  userName:array[0..19] of Char;//ʹÓÃÕß
  ip:array[0..19] of Char;//ʹÓÃIP
  content:array[0..49] of Char;//ÈÕÖ¾ÄÚÈÝ
end;
PDBPlog = ^TDBPlog;

TDBCreateLog = procedure(log:TDBPlog);stdcall;

procedure TForm1.btn1Click(Sender: TObject);
var
  FDllHandle:HMODULE; 
  FCreateLog:TDBCreateLog;
  plog:TDBPlog;
begin
  FDllHandle := LoadLibrary('proxyData.dll');
  if FDllHandle = 0 then raise Exception.Create('Êý¾Ý¿â DLL ¼ÓÔØʧ°Ü');
  FCreateLog := GetProcAddress(FDllHandle,'createLog');
  plog.userName := '11';
  plog.ip := '192.168.1.199';
  plog.content := 'test';
¡¡FCreateLog(plog); //Êý¾ÝÓвåÈëÊý¾Ý¿â 
end;//µ¥»÷ʼþ½áÊøºóÌáʾ³ö´í

---

vcµÄdllÖк¯ÊýÊÇÕâÑùµÄ£º
extern "C" __declspec(dllexport) void createLog(plog log)
{
CString log_ip;
CString user_name;
CStrin