用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
相关问答：
这个是拦截按键消息并测试是否为ENTER键。
begin
case wParam of
WM_KEYDOWN:
fEatKeystroke := (p.vkCode = VK_RETURN);
& ......
就是一个服务端和一个客户端，里边有一些共用单元 ，我在 工程的SEARCH PATH里设置的路径，
里边有个结构体，我在服务端打开，加了成员，但是我在客户端其他单元访问不到我新加的，我在客户端打开那个单元，确实加� ......
如何实现delphi 提交表单
我的思路是 webbrowser1 打开 谷歌
然后 鼠标 点击到 搜索里面
然后 输入 要搜索的关键字 然后 点击 搜索
我现在就是 如何 添入 要搜索的关键字 不� ......
如何用数组跟for打印出下面的图形
*
**
***
****
如果有更好的方法最好也写上 XX
procedure TForm1.Button2Click(Sender: TObject);
var
arr: array of Integer;
i,j: I ......
procedure RunFunction;
type
TFunc = function(A: Integer): Integer;stdcall; //这里根据DLL里面函数的声明修改
var
......
