線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:1962
推到 Plurk!
推到 Facebook!

delphi xe 新增package出現問題

答題得分者是:rick060
daivca
一般會員


發表:1
回覆:2
積分:0
註冊:2011-05-16

發送簡訊給我
#1 引用回覆 回覆 發表時間:2011-05-16 02:21:20 IP:75.155.xxx.xxx 訂閱
如圖(1):出現錯誤訊息
[DCC Error] NTNETWK.PAS(107): E2010 Incompatible types: 'PWideChar' and 'PAnsiChar'

附加檔案:4dd019a0b2f01_1.jpg
rick060
高階會員


發表:2
回覆:112
積分:217
註冊:2009-11-17

發送簡訊給我
#2 引用回覆 回覆 發表時間:2011-05-16 14:13:41 IP:60.250.xxx.xxx 未訂閱
1.它要 PWideChar 你給 PAnsiChar 所以過不了,麻煩增進自己 debug 的能力
編輯記錄
rick060 重新編輯於 2011-05-16 00:23:18, 註解 無‧
daivca
一般會員


發表:1
回覆:2
積分:0
註冊:2011-05-16

發送簡訊給我
#3 引用回覆 回覆 發表時間:2011-05-18 10:11:34 IP:75.155.xxx.xxx 訂閱
不好意思我是新手

不過看過前輩用delphi 7 可以,用 delphi xe 不行所以pos 上次問問

function TNTNetInfo.niGetUserName:String;
Var
lpBuffer: lpstr;
success: Boolean;
nSize: DWord;
Begin
nSize := 255;
Result := '';
GetMem(lpBuffer, 255);
try
// lpBuffer 此行出錯
success := GetUserName(lpBuffer, nSize);
[DCC Error] NTNETWK.PAS(107): E2010 Incompatible types: 'PWideChar' and 'PAnsiChar'

可是用 delphi 7 就沒問題 ? why ? 謝謝


if (not success) and (FReportFatals)
then niRaiseError(NI_UNKNOWN_ERROR);
Result := StrPas(lpBuffer);
finally
FreeMem(lpBuffer);
end;
End;
rick060
高階會員


發表:2
回覆:112
積分:217
註冊:2009-11-17

發送簡訊給我
#4 引用回覆 回覆 發表時間:2011-05-18 11:27:38 IP:60.250.xxx.xxx 未訂閱
-------------------------------------------------------------------------------------------------------------------
這是 delphi 7 對 GetUserName 的宣告
function GetUserName(lpBuffer: PChar; var nSize: DWORD): BOOL; stdcall;
-------------------------------------------------------------------------------------------------------------------
-------------------------------------------------------------------------------------------------------------------
這是 delphi 2010 / xe 對 GetUserName 的宣告
function GetUserName(lpBuffer: PWideChar; var nSize: DWORD): BOOL; stdcall;
-------------------------------------------------------------------------------------------------------------------

var
ptr : WideChar ;
qq : Char;
begin
ShowMessage( IntToStr( sizeof(ptr) ) ); //結果 2
ShowMessage( IntToStr( sizeof(qq) ) ); //結果 1
end;

這就是為什麼。

解法? 太多了.請善用手邊的工具。
P.D.
版主


發表:571
回覆:3880
積分:3666
註冊:2006-10-31

發送簡訊給我
#5 引用回覆 回覆 發表時間:2011-05-19 00:39:29 IP:118.169.xxx.xxx 未訂閱
在XE的版本已全面支援 UNICODE 系統, 也就是說, XE 已經把原本之前的版本中, 如果是
定義為 STRING 的宣告視為 WILDSTRING型態了, 而非以前相容的 ANSISTRING,
所以所有定義為 STIRNG 的用法, 只有兩者做法
一為改為宣告 ANSISTRING, 或者把 導入參數的STRING 全部重新宣告改為 WILDSTRING
這樣說你一定不懂, 其實我也很難懂, 就新手而言, 我只能說"辛苦了",
建議你真的要好好研究 WILDSTRING, ANSISTRING, STRING 之間的宣告模式
或者多搜尋網站的討論

===================引 用 daivca 文 章===================
不好意思我是新手

不過看過前輩用delphi 7 可以,用 delphi xe 不行所以pos 上次問問

function TNTNetInfo.niGetUserName:String;
Var
lpBuffer: lpstr;
success: Boolean;
nSize: DWord;
Begin
nSize := 255;
Result := '';
GetMem(lpBuffer, 255);
try
// lpBuffer 此行出錯
success := GetUserName(lpBuffer, nSize);
[DCC Error] NTNETWK.PAS(107): E2010 Incompatible types: 'PWideChar' and 'PAnsiChar'

可是用 delphi 7 就沒問題 ? why ?謝謝


if (not success) and (FReportFatals)
then niRaiseError(NI_UNKNOWN_ERROR);
Result := StrPas(lpBuffer);
finally
FreeMem(lpBuffer);
end;
End;
daivca
一般會員


發表:1
回覆:2
積分:0
註冊:2011-05-16

發送簡訊給我
#6 引用回覆 回覆 發表時間:2011-05-19 10:09:38 IP:154.20.xxx.xxx 訂閱
謝謝您們,

我有查 help GetUsername 是 string;
function GetUsername: String;
編輯記錄
daivca 重新編輯於 2011-05-18 20:31:07, 註解 無‧
系統時間:2017-10-17 21:05:43
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!