delphi xe 新增package出現問題 |
|
答題得分者是：rick060
|
|
daivca
一般會員   發表：2 回覆：2 積分：0 註冊：2011-05-16 發送簡訊給我 |
如圖(1):出現錯誤訊息
[DCC Error] NTNETWK.PAS(107): E2010 Incompatible types: 'PWideChar' and 'PAnsiChar'  附加檔案：4dd019a0b2f01_1.jpg
|
|
rick060
高階會員  發表：2 回覆：112 積分：217 註冊：2009-11-17 發送簡訊給我 |
|
|
daivca
一般會員 發表：2 回覆：2 積分：0 註冊：2011-05-16 發送簡訊給我 |
不好意思我是新手
不過看過前輩用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 發送簡訊給我 |
-------------------------------------------------------------------------------------------------------------------
這是 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.
版主  發表：603 回覆：4038 積分：3874 註冊：2006-10-31 發送簡訊給我 |
在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
一般會員 發表：2 回覆：2 積分：0 註冊：2011-05-16 發送簡訊給我 |
發表時間：2011-05-16 02:21:20
IP:75.155.xxx.xxx 訂閱
系統時間：2024-11-23 0:51:33
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |