这个简单的东西困扰我一个礼拜了...问出来你们别嘲笑我(D2010)...

Question

    ShowMessage(WideCharToString(PWideChar(byName)));
    //能正常show出来。
    btnNewClientname.Text := WideCharToString(PWideChar(byName));
    //给这个edit赋值出现错误：
----------
Debugger Fault Notification
----------
Project F:\Yolo-E8HotelMis\YoloE8HotelMis.exe faulted with message: 'access violation at 0x00da664a: read of address 0x000006ad'. Process Stopped. Use Step or Run to continue.
----------
OK   
----------
太郁闷了.....招揽高手   环境是【Win7+delphi2010】
---------------------------------------------- 
byName  是一个 PAnsiChar  类型的全局变量。软件装载时：
getmem(byName, 30);
软件退出时：
FreeMem(byName);这个东西赋值是这样：
for i := 0 to 29 do
          byName[i] := AnsiChar(Readbuf[i + 7]);至于Readbuf是调用一个Dll函数的回传值。dll的delphi函数这样定义的：
function OneCommand(cmd: integer; dLength: integer; pBuff: PByte;
  nTypeAB: integer; nOutOfTime: integer): integer; stdcall;
External 'DllCom.dll' name 'OneCommand';
里面的pBuff就是Readbuf.Readbuf.的delphi的定义是这样的：
Readbuf: array [0 .. 2047] of Byte;

Answer 1

我几乎绝望了，无法跟踪也无济于事，showmessage没啥问题，
可是把showmessage的内容给edit的时候却出现内存错误，真不知道该怎么办？
我尝试很多方法了，真不知道该怎么写？请高手帮忙....难道Delphi2010的Bug？难得吧？

Answer 2

ShowMessage(WideCharToString(PWideChar(byName)));
//能正常show出来。var
  s:string;
s:=WideCharToString(PWideChar(byName))
btnNewClientname.Text := s;
//给这个edit赋值出现错误：

Answer 3

btnNewClientname.Text := WideCharToString(PWideChar(byName));
//给这个edit赋值出现错误： 这样写不对，要先指定类型，再进行赋值。
 Var
s: string;
procedure .....
begin
s:=WideCharToString(PWideChar(byName));
btnNewClientname.Text := s;
...
end;

Answer 4

还是一样。我把全部代码贴出来吧：
单元：
unit uScanComm;interfacefunction ErDaiOneCommand(cmd: integer; dLength: integer; pBuff: PByte;
  nTypeAB: integer; nOutOfTime: integer): integer; stdcall;
External 'DllCom.dll' name 'OneCommand';
{这个DLL函数的Delphi声明，是我根据C中的声明改写的，
原C中的声明是这样的：
     [DllImport("DllCom.dll", CharSet = CharSet.Auto)]
     public static extern int OneCommand(int cmd, int dlength, byte[] pBuff, int nTypeAB, int nOutOfTime);}function ErDaiReadCard(blJumpXunka: Boolean): string;var
  byName: PAnsiChar;implementationfunction ErDaiReadCard(blJumpXunka: Boolean): string;
var
  iReturn, i: Integer;
  sImagefilename: string;
  FileHandle: Integer;
  Readbuf: array [0 .. 2047] of Byte;
begin
   Result := '';
  if not blJumpXunka then
    iReturn := ErDaiOneCommand($2001, 0, @Readbuf[0], 1, 200);
  if (blJumpXunka) or ((iReturn > 0) and (Readbuf[2] = $9F)) then
  begin
    if not blJumpXunka then
      iReturn := ErDaiOneCommand($2002, 0, @Readbuf[0], 1, 200);
    if (blJumpXunka) or ((iReturn > 0) and (Readbuf[2] = $90)) then
    begin
      ErDaiOneCommand($3001, 0, @Readbuf[0], 1, 1500);
      if ((Readbuf[0] = $00) and (Readbuf[1] = $00) and (Readbuf[2] = $90))
        then
      begin
        for i := 0 to 29 do
          byName[i] := AnsiChar(Readbuf[i + 7]);
        Byte(byName[30]) := $0;
        Result :=WideCharToString(PWideChar(byName));
      end;
    end;
  end;
end;end.在主窗体引用以上函数单元，并且在主窗体创建时：
  getmem(byName, 31);
在主窗体关闭时：
  FreeMem(byName);
主窗体的按钮执行事件：
procedure TfrmSsRoomSt.btnErDaiClick(Sender: TObject);
var
  sPsName: string;
begin
  sPsName := ErDaiReadCard(False);
  ShowMessage(sPsName);
  // 能正常Showmessage出来一个消息
  { [Window Title]
    余乐科技软件产品    [Content]
    张喜明    [OK]
  }
  btnNewClientname.Text := sPsName;
  { // 内存错误
    ----------
    Debugger Fault Notification
    ----------
    Project F:\Yolo-E8HotelMis\YoloE8HotelMis.exe faulted with message:
    'access violation at 0x00da063b: read of address 0x00000c88'. Process Stopped.
    Use Step or Run to continue.
    ----------
    OK
    ----------
    }
end;
---------------------------------------------- 

Answer 5

单元：unit uScanComm;interfacefunction ErDaiOneCommand(cmd: integer; dLength: integer; pBuff: PByte;
  nTypeAB: integer; nOutOfTime: integer): integer; stdcall;
External 'DllCom.dll' name 'OneCommand';
{这个DLL函数的Delphi声明，是我根据C中的声明改写的，
原C中的声明是这样的：
     [DllImport("DllCom.dll", CharSet = CharSet.Auto)]
     public static extern int OneCommand(int cmd, int dlength, byte[] pBuff, int nTypeAB, int nOutOfTime);}function ErDaiReadCard(blJumpXunka: Boolean): string;var
  byName: PAnsiChar;implementationfunction ErDaiReadCard(blJumpXunka: Boolean): string;
var
  iReturn, i: Integer;
  sImagefilename: string;
  FileHandle: Integer;
  Readbuf: array [0 .. 2047] of Byte;
begin
   Result := '';
  if not blJumpXunka then
    iReturn := ErDaiOneCommand($2001, 0, @Readbuf[0], 1, 200);
  if (blJumpXunka) or ((iReturn > 0) and (Readbuf[2] = $9F)) then
  begin
    if not blJumpXunka then
      iReturn := ErDaiOneCommand($2002, 0, @Readbuf[0], 1, 200);
    if (blJumpXunka) or ((iReturn > 0) and (Readbuf[2] = $90)) then
    begin
      ErDaiOneCommand($3001, 0, @Readbuf[0], 1, 1500);
      if ((Readbuf[0] = $00) and (Readbuf[1] = $00) and (Readbuf[2] = $90))
        then
      begin
        for i := 0 to 29 do
          byName[i] := AnsiChar(Readbuf[i + 7]);
        Byte(byName[30]) := $0;
        Result :=WideCharToString(PWideChar(byName));
      end;
    end;
  end;
end;end.在主窗体引用以上函数单元，并且在主窗体创建时：
  getmem(byName, 31);
在主窗体关闭时：
  FreeMem(byName);
主窗体的按钮执行事件：
procedure TfrmSsRoomSt.btnErDaiClick(Sender: TObject);
var
  sPsName: string;
begin
  sPsName := ErDaiReadCard(False);
  ShowMessage(sPsName);
  // 能正常Showmessage出来一个消息
  { [Window Title]
    余乐科技软件产品    [Content]
    张喜明    [OK]
  }
  btnNewClientname.Text := sPsName;
  { // 内存错误
    ----------
    Debugger Fault Notification
    ----------
    Project F:\Yolo-E8HotelMis\YoloE8HotelMis.exe faulted with message:
    'access violation at 0x00da063b: read of address 0x00000c88'. Process Stopped.
    Use Step or Run to continue.
    ----------
    OK
    ----------
    }
end;
---------------------------------------------- 

Answer 6

1、你沒必要自己轉換pansichar to unicodestring——可以直接給值，編譯器會幫你轉換；
2、你轉換的過程有問題，起碼pansichar不能簡單強制類型轉換pwidechar就可以的；

Answer 7

不好意思哦，CSDN不允许修改，弄得太长了，这个问题真是整了一个多礼拜了，还是没有最终解决方法。有段时间，我没有把这些读卡函数放在单独的单元文件里（跟主窗体放在一起），一直没有问题，后来因为用到的地方多了，所以就挪到了单独的单元文件，给其他的调用，没想到整理的一大堆代码出来，到现在这个样子...可真不知道问题出在哪里？拜托了...

Answer 8

去掉转换的部分也是不行，呵呵。WideCharToString(PWideChar(byName));
改为
PWideChar(byName);
问题依旧，至于我吧byName的pAnsichar转换为PWideChar(或者用LPWSTR)，我不知道问题出在哪里。

Answer 9

这个是C#的关于取得姓名并转换的代码：for (int i = 0; i < 30;i++ )
 {
  byOutTst[i] = byOut[j+i];
 }
 string sname = System.Text.Encoding.GetEncoding("Unicode").GetString(byOutTst);

Answer 10

.....
你沒看清我說的.............
問題就在PWideChar(byName)

Answer 11

還是貼代碼給你好了...ShowMessage(byName);
//能正常show出来。
btnNewClientname.Text := byName;

Answer 12

嗯...里面有漢字，可以這樣處理
1、聲明一個變量UniCodeName : PCHAR;
  并分配內存GetMem(UniCodeName, 255);
2、
ErDaiReadCard在接收到字串時：var
begin
  ...
  StrPCopy(UniCodeName, byName);
  Result := UniCodeName;
end;
  
  

Answer 13

嗯，那我整成这样，简化一下：function ErDaiReadCard(blJumpXunka: Boolean): string;
var
  iReturn, i: integer;
  byName: PAnsiChar;
  Readbuf: array [0 .. 2047] of Byte;
  UniCodeName : PCHAR;
begin
  Result := '';
  getmem(byName, 31);
  GetMem(UniCodeName, 255);
  try
    if not blJumpXunka then
      iReturn := ErDaiOneCommand($2001, 0, @Readbuf[0], 1, 200);
    if (blJumpXunka) or ((iReturn > 0) and (Readbuf[2] = $9F)) then
    begin
      if not blJumpXunka then
        iReturn := ErDaiOneCommand($2002, 0, @Readbuf[0], 1, 200);
      if (blJumpXunka) or ((iReturn > 0) and (Readbuf[2] = $90)) then
      begin
        ErDaiOneCommand($3001, 0, @Readbuf[0], 1, 1500);
        if ((Readbuf[0] = $00) and (Readbuf[1] = $00) and (Readbuf[2] = $90))
          then
        begin
          for i := 0 to 29 do
            byName[i] := AnsiChar(Readbuf[i + 7]);
          Byte(byName[30]) := $0;
          StrPCopy(UniCodeName, byName);
          Result := UniCodeName;
        end;
      end;
    end;
  finally
    FreeMem(byName);
  end;
end;主窗体调用，错误还是依旧，已经注释在代码中，Showmessage是不错误，但是乱码，给Edit赋值时内存错误：procedure TfrmSsRoomSt.btnErDaiClick(Sender: TObject);
var
  sPsName: string;
begin
  sPsName := ErDaiReadCard(False);
  ShowMessage(sPsName);
  // 能正常Showmessage出来一个消息
  { [Window Title]
    余乐科技软件产品    [Content]
    _淯f    [OK]
    }
  btnNewClientname.Text := sPsName;
  { // 内存错误
    ---------------------------
    Debugger Fault Notification
    ---------------------------
    Project F:\Yolo-E8HotelMis\YoloE8HotelMis.exe faulted with
    message: 'access violation at 0x00da066f: read of address 0x000006ad'.
    Process Stopped. Use Step or Run to continue.
    ---------------------------
    OK
    ---------------------------
    }
end;

Answer 14

UniCodeName 我代码上忘了释放，但是我测试了释放，结果和上面的一样.....

Answer 15

檢查一下btnNewClientname是否已創建....

Answer 16

这样是不会出任何问题的：function TForm1.ErDaiReadCard1: string;
var
  iReturn, i: integer;
  byName: PAnsiChar;
  Readbuf: array [0 .. 2047] of Byte;
begin
  Result := '';
  getmem(byName, 31);
  try
    iReturn := ErDaiOneCommand($2001, 0, @Readbuf[0], 1, 200);
    if ((iReturn > 0) and (Readbuf[2] = $9F)) then
    begin
      iReturn := ErDaiOneCommand($2002, 0, @Readbuf[0], 1, 200);
      if ((iReturn > 0) and (Readbuf[2] = $90)) then
      begin
        ErDaiOneCommand($3001, 0, @Readbuf[0], 1, 1500);
        if ((Readbuf[0] = $00) and (Readbuf[1] = $00) and (Readbuf[2] = $90))
          then
        begin
          for i := 0 to 29 do
          byName[i] := AnsiChar(Readbuf[i + 7]);
          Byte(byName[30]) := $0;
          Result := PWideChar(byName);
//我把赋值的代码写在这里，能得到值，也没有错误异常。
//为何把返回值Showmessage没问题，单赋值给edit就出现问题呢？百思不得其解啊.....等高手
           edtName.Text := Result;
        end;
      end;
    end;
  finally
    FreeMem(byName);
  end;
end;

Answer 17

把byname放在外面分配+釋放....

Answer 18

btnNewClientname 这个是放在窗体上控件。

Answer 19

把byname放在外面分配+釋放....
我也试过，你看过帖子的话，其实最初就是放在外面，照样有问题。

Answer 20

可以的話，你發source過來我調試看看...
mail我短信息給你

Answer 21

问题应该出在btnNewClientname这个控件上，
首先，像20楼说的，如果控件是动态创建的话，检查下这个控件有没有Create过，
如果没有发现问题，再看看这个控件是不是自己写的，检查下与Text属性对应的SetText的代码有没有问题

Answer 22

控件是Delphi的标准控件。直接放在Form上。没有问题。要么你加我QQ让你远程控制55268867？因为Source给你，你没读卡器没用的。

Answer 23

标准控件,是什么控件,TButton?TButton 哪里来的text,应该是caption吧