PChar與String類型轉換問題(100分)

followindy · 2003-04-24

var   BMsg, BID: PChar;   sMsg, sID: string; begin   GetMem(BMsg, 4096);   GetMem(BID, 32);   xcom_recv(52, BMsg, 4096, BID, ....);   sID := StrPas(BID); // 此处编译异常！！！！   sID := upperCase(trim(sID));   sMsg := StrPas(BMsg);   sMsg := upperCase(trim(sMsg));    .....   FreeMem(BMsg);   FreeMem(BID);   end; 错误提示如下： raised exception class EAccessViolation with message'Access violation at address 0040453F in module 'Project1.exe',.... 請指教。[

][

]

followindy · 2003-04-24

関於xcom_recv函數的奠儀及使用， 蔴煩大傢看這個貼： http://www.delphibbs.com/delphibbs/DispQ.asp?LID=1729406

LeeChange · 2003-04-24

直接吧函数定义成 function XCOM_recv(nChannelId: longInt; pbuffer: String; nSize: longInt;                     pMessageId: String; nRecvLength: longInt; nBlockorFunction: longInt;                      nWaitTime: longInt = $HFFFFFFFF): longInt; stdCall; external 'vbdll.dll';

followindy · 2003-04-24

To: LeeChange 那個dll是用c++寫的，用PChar保險。 我改成string後，係統報另外一個dll的錯誤了。

zhbj · 2003-04-24

pchar - string    strpas(pchar) string - pchar  pchar(string)

远帆 · 2003-04-24

解决了吗？要是还没有解决，把xcom_recv的声明贴上来看看。

followindy · 2003-04-24

zhbj，看清我怎麽在用了嗎？謝謝。

张无忌 · 2003-04-24

xcom_recv(52, BMsg^, 4096, BID^, ....); 估计这样才对

followindy · 2003-04-24

TXCOM_recv = function (nChannelId: longInt; var pbuffer: PChar;  nSize: longInt;                  var pMessageId: PChar; var nRecvLength: longInt; var nBlockorFunction: longInt;                  nWaitTime: longInt = $0FFFFFFF): longInt; stdCall;  //cdecl; var   xcom_recv: Txcom_recv;   LibHandle := loadLibrary('VBDLL.Dll');   @XCOM_recv := GetProcAddress(LibHandle,'xcom_recv'); 奠儀，以及調用方式都在這裏了。 顯然調用是沒有問題的。 要麽是類型轉換問題，要麽是函數參數問題。 請大傢幫忙。3ks

followindy · 2003-04-24

张无忌,接口是PChar，不是指針。謝謝。

张无忌 · 2003-04-24

你的函数翻译可能有问题

远帆 · 2003-04-24

你用 bmsg:=allocmem(4096);替换 GetMem(BMsg, 4096); 试试？

zhbj · 2003-04-24

将 BID 改为字符试验一下吧，可以缩小问题范围。

远帆 · 2003-04-24

如果还有问题，那肯定是DLL函数或你的声明有问题。

followindy · 2003-04-24

Private Declare Function xcom_recv Lib "vbdll.dll" ( ByVal nChannelId As Long, '接收电文的通道号，是在XMessageConfig.ini中配 置的，规定要大于50。 ByVal pbuffer As String, '提供的用于容纳数据的缓冲区 ByVal nSize As Long, '上述缓冲区的长度 ByVal pMessageId As String, '提供的用于容纳电文号的缓冲区 nRecvLength As Long, '实际接收到的数据长度 nBlockorFunction As Long, '必须提供的一个整型量 Optional ByVal nWaitTime As Long = &HFFFFFFFF '接收进程等待的时间，缺省 值是指阻塞等待，直到有数据到达。 ) As Long 這是函數在VB中的奠儀以及調用方式。大傢看看。

followindy · 2003-04-24

http://www.delphibbs.com/delphibbs/DispQ.asp?LID=1729406 函數繙譯問題我已經在上靣這個貼裏靣提過了。有興趣的蔴煩去看看。

张无忌 · 2003-04-24

TXCOM_recv = function (nChannelId: longInt; var pbuffer: PChar;  nSize: longInt;                   var pMessageId: PChar; var nRecvLength: longInt; var nBlockorFunction: longInt;                  nWaitTime: longInt = $0FFFFFFF): longInt; stdCall;  //cdecl; 我测试用我上面的函数说明重新试一次如何？

followindy · 2003-04-24

大傢幫忙看看怎樣在Delphi裏聲明這個接口函數？？  該函數VB的聲明方式見上靣。

张无忌 · 2003-04-24

VB我不太懂，

followindy · 2003-04-24

张无忌,一樣無傚。那兩個PChar參數的var問題我改過幾遍來測試了的。 可以確定的是，他們必須是變量參數，因為這個函數的功能是來接收數據的， 而數據必須通過這兩個參數傳遞。

PChar與String類型轉換問題(100分)

followindy

Unregistered / Unconfirmed

followindy

Unregistered / Unconfirmed

LeeChange

Unregistered / Unconfirmed

followindy

Unregistered / Unconfirmed

zhbj

Unregistered / Unconfirmed

远帆

Unregistered / Unconfirmed

followindy

Unregistered / Unconfirmed

张无忌

Unregistered / Unconfirmed

followindy

Unregistered / Unconfirmed

followindy

Unregistered / Unconfirmed

张无忌

Unregistered / Unconfirmed

远帆

Unregistered / Unconfirmed

zhbj

Unregistered / Unconfirmed

远帆

Unregistered / Unconfirmed

followindy

Unregistered / Unconfirmed

followindy

Unregistered / Unconfirmed

张无忌

Unregistered / Unconfirmed

followindy

Unregistered / Unconfirmed

张无忌

Unregistered / Unconfirmed

followindy

Unregistered / Unconfirmed

Similar threads