delphi调用vc的dll的函数不能返回参数？？(100分)

S

scorpions

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-24

• #1

1：delphi调用vc的dll的函数可以输入参数，不能输出参数？
(vc调用delphi的也是如此)delphi调delphi的没问题。

实参好像只能用指针类型（如：char**）
不知delphi用什么类型对应？（^pchar吗？）

若c函数：
int test(char** a)

那delphi用什么类型？怎么调用？

2: 但函数返回值用记录类型怎么不能返回vc的结构体类型函数？
是不是也要用指针类型？

3：怎样在win2000中把输入法的ctrl+空格给屏蔽掉？
我把输入法都删除后在delphi中还是不能用ctrl+空格？

 

S

sunshan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-24

• #2

关注

 

I

iie

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-25

• #3

返回值都用指针类型，试试用@a之类地址传递。

 

S

scorpions

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-25

• #4

若vc函数：
int test(char** a)

若我的a参数返回多个值，vc用char**好像可以。

那delphi用什么类型对应？怎么调用？

 

O

only you

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-25

• #5

Var
ppchar:^PChar;

 

P

pine_ant

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-25

• #6

listen

 

S

scorpions

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-25

• #7

vc的函数：
int test(char** c1)
{
*c1="123";
return 1;
}

delphi调用:
type
ppchar=^pchar;

var
function test(var c1pchar):integer;stdcall;external'testdll.dll';

procedure TForm1.Button1Click(Sender: TObject);
var
apchar;
// bchar;
begin
new(a);
test(a);
edit1.text:=a^;
dispose(a);
end;

edit1.text取出来全是乱码？

 

S

sjt

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-25

• #8

ppchar 换成array[0..23]of PChar;

 

C

cqhxping

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-25

• #9

把new(a);改为GetMem(a,20);把dispose(a);改为FreeMem(a)

 

S

scorpions

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-25

• #10

var
function test(var c1ointer):integer;stdcall;external'testdll.dll';

procedure TForm1.Button1Click(Sender: TObject);
var

achar;
begin
getmem(a,50);
test(@a);
edit1.text:=a;

freemem(a,50);
end;

这样能返回正确的参数。

为什么不能在函数中声明指针型的参数？
function aaa(var c:^pchar):integer;
只能
type
ppchar=^pchar;
function aaa(var cpchar):integer;

 

S

scorpions

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-25

• #11

type
ppchar=^pchar;
var
function test(var c1pchar):integer;stdcall;external'testdll.dll';
procedure TForm1.Button1Click(Sender: TObject);
var
achar;
c2pchar;
begin
new(c2)

c2:=@a

test(c2);
edit1.text:=c2^;

dispose(c2);
end;

这样写可以取出vc的char**的值。但不能取出整形指针的值？

 

S

scorpions

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-25

• #12

vc函数参数是结构体指针。结构体中2个char*变量。用C++Builder调用没问题。
用delphi调用能取出结构体中char*的值，但报错。不知问什么？？

type
myrec=record
aachar;
bbchar;
end;
pmyrec=^myrec;
var
Form1: TForm1;
function getNewMessage(var newmmyrec):integer;stdcall;external'test.dll';
implementation
{$R *.DFM}
{ TForm1 }
procedure TForm1.Button1Click(Sender: TObject);
var
m1,m2char;
testmyrec;
begin
new(test);
getNewMessage(test);
m1:=test^.aa;
m2:=test^.bb;
dispose(test);
end;

 

C

cqhxping

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-25

• #13

pascal语法规定：函数、过程的参数的类型指定只能用类型标识符才能保证类型的一致性；
凡要通过参数返回结果的，形式参数与实参的类型必须一致。

 

Y

ymkj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-26

• #14

var
aaChar;
aa1ointer;
begin
aa1:=@aa;
end;

 

K

Kingron

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-28

• #15

2000输入法调整按键顺序的那个Listbox太小气,你看不到下面的,滚动一下就知道了.

 

S

scorpions

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-29

• #16

多人接受答案了。