我在翻译VC——DELPHI代码的时候遇到一些困难，希望各位高人帮忙解决一下！！ ( 积分: 100 )

  • 主题发起人 主题发起人 devilsniffer
  • 开始时间 开始时间
D

devilsniffer

Unregistered / Unconfirmed
GUEST, unregistred user!
有部分语句不知道如何翻译成为DELPHI的，拿出来请高手指点一下：<br><br>char svcname[256], file[MAX_PATH];<br>strncpy(svcname, (char*)argv[0], sizeof svcname); <br>wcstombs(svcname, argv[0], sizeof svcname);<br>wchar_t* argv[]<br><br>int bInteract = argc &gt; 2 ? 1 : 0;<br><br>LPVOID lpReserved<br><br>以上每一行为一句VC代码，请帮帮忙！！！
 
有部分语句不知道如何翻译成为DELPHI的，拿出来请高手指点一下：<br><br>char svcname[256], file[MAX_PATH];<br>strncpy(svcname, (char*)argv[0], sizeof svcname); <br>wcstombs(svcname, argv[0], sizeof svcname);<br>wchar_t* argv[]<br><br>int bInteract = argc &gt; 2 ? 1 : 0;<br><br>LPVOID lpReserved<br><br>以上每一行为一句VC代码，请帮帮忙！！！
 
第一句是定義兩個svcname[256], file[MAX_PATH]的char數組;<br>第二是copy(svcname, (char*)argv[0], sizeof svcname);<br><br>不太清楚了
 
能不能帮忙翻译一下啊！！
 
svcName : array[0..255] of Char<br>AFile : array[0..MAX_PATH] of Char<br>StrLCopy(svcName,@argv[0],Length(svcName))<br>Argv : PWideChar;<br>WideCharToString<br>if argc&gt;2 then<br> &nbsp;binteract:=1<br>else<br> &nbsp;binteract:=0<br>lpReserved : Pointer
 
非常感谢高手相助，wcstombs(svcname, argv[0], sizeof svcname); 句如何翻译啊？<br><br>就差这句了，搞定了马上就给分！！
 
使用Win32的WideCharToMultiByte函数代替wcstombs，该函数在联机帮助中有详细说明
 
可以参考下面的文章<br>http://www.zahui.com/html/1/3777.htm
 
多人接受答案了。
 
您必须登录或注册才可回复。

Similar threads

S
请帮忙翻译下VC代码到delphi(100)
回复
3
查看
1K
Star5
S
X
哪位高人帮忙转一下这段VC代码啊?(50)
回复
0
查看
701
xf_z
X
H
C语言的头文件 谁帮忙翻译Delphi一下呀(100)
回复
9
查看
1K
GodIsWrong
G
H
C语言的头文件 谁帮忙翻译Delphi一下呀。(200)
回复
2
查看
569
hgto2008
H
P
关于获取拼音首字符(包括多音字)，哪位懂JavaScript的富翁能翻译成delphi代码(100)
回复
14
查看
929
舞雪
舞
后退
顶部