有关MCISendString函数的问题(50分)

I

iren_cui

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-10

• #1

我在使用
function mciSendString(lpstrCommand, lpstrReturnString: PChar;
uReturnLength: UINT;
hWndCallback: HWND): MCIERROR;
stdcall;
时总是出现Incompatible types:'String'and'PChar'的错误提示，请问
如何定义PChar类型的变量

 

W

www

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-10

• #2

用pchar必须先分配内存的
var schar;
begin

getmem(s,100);
//分配100个字节
s:='asdfsdf';

end;


另外的办法
var s:array[0..100] of char;
//这样也可以
begin

s:='asdfsdf'
end;

 

S

SuperMMX

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-10

• #3

我都是这么用的,
PChar(aString);
但被 cAkk 数落了一通, 还是不改.

 

Y

yoller

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-10

• #4

SuperMMX的用法很对。

 

I

iren_cui

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-12

• #5

多谢各位的答案,待我试试再送分.

 

I

iren_cui

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-12

• #6

我是这样作了一个小程序学习这个函数的
var
errcode:integer;
begin

MCICommand:=Edit1.Text;//命令语句
errcode:=mciSendString(MCICommand,retstring,128,0);
在执行时出错的地方是变量retstring,我用 SuperMMX和yoller的方法定义了之后还是出同样的错,是不是还有永别的问题呢??多谢指教.

 

R

R_Baggio

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-12

• #7

同意SuperMMX的用法

 

H

houling

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-23

• #8

var
mci:string;
mciid:integer;
begin

mciid:=mcigetdeviceid(nil);
mci:='setaudio '+inttostr(mciid)+ ' off';
mcisendstring(pchar(mci),0,nil,0);
end;

 

W

wjiachun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-23

• #9

接受答案了.