ConvertStrToNetUnicode в функции ошибка

← →
Dust © (2005-08-25 14:17) [0]

тестирование показало, что именно в этом участке кода ошибка
(сама ошибка вылазить значительно позже, спустя 200 а то и 500 строк)
вот текст самой функции

Procedure ConvertStrToNetUnicode (const str : Pchar;var len : byte); var pwch : PWORD; tmpstr : String; ln : Integer; begin //конвертирует строку для отправки в Unicode кодировке Src-String должна содержать len*2 байт len:=len shl 1; pwch := Pointer(str); StringToWideChar(str, PWideChar(pwch), len); for ln := len-1 downto 0 do begin pwch^:= htons(pwch^); inc (pwch); end; end;
//****************************
она вызывается вот в этом участке :
......... ab[9]:=length(tmpstr); //sm_length if fUnicode then begin ab[7]:=$08; //data_coding SetLength (tmpstr, ab[9]*2+2); ConvertStrToNetUnicode (Pchar(tmpstr), ab[9]); //SETS sm_length end; .........
tmpstr - локально описанная строка типа String

← →
Dust © (2005-08-25 14:25) [1]

всё, кажется нашёл, точнее кажется понял

Procedure ConvertStrToNetUnicode (const str : Pchar;var len : byte);
var pwch : PWORD;
tmpstr : String;
ln : Integer;
begin //конвертирует строку для отправки в Unicode кодировке Src-String должна содержать len*2 байт
len:=len shl 1;
pwch := AllocMem (ln); //Pointer(str);
StringToWideChar(str, PWideChar(pwch), len);

for ln := len-1 downto 0 do
begin
pwch^:= htons(pwch^);
inc (pwch);
end;
Move (pwch^, Pointer(str)^, len);
FreeMemory(pwch);
end;

← →
Dust © (2005-08-25 15:00) [2]

прошу прощенья... опять ошибка

← →
han_malign © (2005-08-25 15:26) [3]

Procedure ConvertStrToNetUnicode (const str : Pchar;var len : byte); var pwch : PWORD; tmpstr : String; ln : Integer; begin //конвертирует строку для отправки в Unicode кодировке Src-String должна содержать len*2 байт len:=len shl 1; pwch := Pointer(str); StringToWideChar(str, PWideChar(pwch), len); for ln := len-1 downto 0 do begin pwch^:= htons(pwch^); inc (pwch); end; end; - inc (pwch) <==> PChar(pwch) = PChar(pwch)+2; а при этом len = len shl 2; вторая версия: pwch := AllocMem (ln); - ln не инициализировано... да и лишнее это - память выделяется при создании временной AnsiString при передаче str в StringToWideChar...

← →
han_malign © (2005-08-25 15:29) [4]

блин, тэг не закрыл... и с цифрами напутал - короче, внимательней к глобально(в области видимости) изменяемым длинам относись.

← →
Dust © (2005-08-25 18:32) [5]

inc (pwch) <==> PChar(pwch)
это единственная ошибка которая оставалась
Procedure ConvertStrToNetUnicode (const str : Pchar;var len : byte); var pwch : PWORD; tmpstr : String; ln : Integer; p2 : Pointer; begin //êîíâåðòèðóåò ñòðîêó äëÿ îòïðàâêè â Unicode êîäèðîâêå Src-String äîëæíà ñîäåðæàòü len*2 áàéò len:=len shl 1; pwch := AllocMem (ln); //Pointer(str); StringToWideChar(str, PWideChar(pwch), len); p2:= Pointer(pwch); for ln := len-1 downto 0 do begin pwch^:= htons(pwch^); inc (pwch); end; Move (p2^, str^, len); FreeMemory(pwch); end;

былин..
долбаная винда с её юникодом...

pwch :=p2;
FreeMemory(pwch);

ConvertStrToNetUnicode в функции ошибка Найти похожие ветки