level 1
贴吧用户_5VEVNV2
楼主
激光动态库载入成功 后,跳出 窗口: Access violation at address 0012F73C. Write of address 061CF5C0
//-----------------
function AnsiToUnicode(s:string):WideString;
var
lpWideChar:PWideChar;
len:Integer;
begin
len:=(Length(s)+1)*2;
GetMem(lpWideChar,len);
ZeroMemory(lpWideChar,len);
MultiByteToWideChar(CP_ACP,MB_PRECOMPOSED,PChar(s),Length(s),lpWideChar,Len);
Result:=lpWideChar;
FreeMem(lpWideChar);
end;
//---------加载成功 后 是不是这里的 字符属性 我给搞错了
lmc1_LoadEzdFile(AnsiToUnicode('text1.ezd'));
lmc1_ChangeTextByName(AnsiToUnicode('name'),AnsiToUnicode('TC CHANGE'));
lmc1_Mark(TRUE);
lmc1_Close();
--------------
2019年08月27日 14点08分
1
//-----------------
function AnsiToUnicode(s:string):WideString;
var
lpWideChar:PWideChar;
len:Integer;
begin
len:=(Length(s)+1)*2;
GetMem(lpWideChar,len);
ZeroMemory(lpWideChar,len);
MultiByteToWideChar(CP_ACP,MB_PRECOMPOSED,PChar(s),Length(s),lpWideChar,Len);
Result:=lpWideChar;
FreeMem(lpWideChar);
end;
//---------加载成功 后 是不是这里的 字符属性 我给搞错了
lmc1_LoadEzdFile(AnsiToUnicode('text1.ezd'));
lmc1_ChangeTextByName(AnsiToUnicode('name'),AnsiToUnicode('TC CHANGE'));
lmc1_Mark(TRUE);
lmc1_Close();
--------------