麻烦高手给写个VC高用DELPHI DLL的程序
分不够再加，急求
http://topic.csdn.net/u/20091214/22/37554f7c-831f-486b-ab58-6b50532c47ab.html
原帖在这，都说一楼的方法是正确的，但是我这按楼主方法出错
DELPHI的代码如下
Delphi(Pascal) code:
library HealthDocDll;
uses
SysUtils,
Classes,
Forms,
Dialogs,
Windows,
HealthDoc in 'HealthDoc.pas' {frmHealthDoc},
pub in 'pub.pas';
{$R *.res}
procedure ShowForm(DoctorName,UserName:string);
begin
sDoctorName:=DoctorName;
sUserName:=UserName;
if not Assigned(frmHealthDoc) then
TfrmHealthDoc.Create(nil);
frmHealthDoc.Show;
end;
exports
ShowForm;
begin
end.
只有一个窗口，SHOW出来就行
VC的调用代码如下
C/C++ code:
HINSTANCE hDll;
hDll=LoadLibrary( _T("HealthDocDLL.DLL") );
typedef int(*func)(const char*,const char*);
func SmartWord= (func)GetProcAddress( hDll , "ShowForm" );
SmartWord( "aaaaaa" , "b" );
错误如下
"0x7c9313c0"指令引用"0x004d0055"内丰。该内存不能为"written"
应该是地址越界类的错误吧，请问应该如何修改？
procedure ShowForm(DoctorName,UserName:string);
此处改为
procedure ShowForm(DoctorName,UserName:pchar);
调�
相关问答：
select * from shuju.DB where 开盘价-收盘价<=0.02
开盘价 与收盘价 是数据库里的字段
select * from aTableName where ((开盘价-收盘价) <=0.02 )
开盘价比收盘价低两分以下的情况
Mark!!!!!!
se ......
具体要求与报酬QQ729851670
771234717
“拼音编程”是什么意思
引用
“拼音编程”是什么意思
1.给一个字可以显示拼音，多音字的话能显示对应的多个拼音
2.对包含多音字的词语智能识别给出拼音。
3.对一段 ......
//DLL 放在EXE中没问题
function SkinForm(var skfrm:TForm):Integer;stdcall;
var
skf:TbsBusinessSkinForm;
nskfrm:TForm;
begin
frmUUMain:=skfrm;
skf:=TbsBus ......
定义：
type
pm= packed record { IO记录 }
Name:string[16]; { IO名称 }
CHn:Byte; {输入通道号 }
Pvh:Double; { 量程上� ......
