Модератор: Модераторы
gvido писал(а):С 1.4.4 ни один вариант не дает корректного результата
Код: Выделить всё
var
s,k:WideString ;
с,cc:PChar;
begin
k:='';
cc := nil;
s := "F:\";
c := addr(s[0]);// S[1];
err_code:=InitKey(c,cc); // err_code:=InitKey(@c,@cc);
// или вот так?
err_code:=InitKey(PChar(s),PChar(k));
serbod писал(а):gvido, действительно, ерунда получается. Я бы на вашем месте написал об этом в багтрекер. Только нужен простой компилируемый пример.
А зачем вам именно array of char, почему бы не использовать String? Он же должен в PChar без проблем конвертироваться. Или AnsiString и PAnsiString.
SSerge писал(а):я бы при такой безнадёге получил ассемблерный листинг последнего работающего варианта и первого неработающего и попытался сравнить с целью увидеть разницу.
gvido писал(а):И ладно бы в строки были нестандартные символы
Код: Выделить всё
s,k:string;
begin
k := '';
s := 'F:\';
err_code:=InitKey(PChar(UTF8ToWinCP(s)),PChar(UTF8ToWinCP(s)));
Код: Выделить всё
procedure TForm1.BLoadKeyClick(Sender: TObject);
var
err_code: integer;
begin
err_code:=InitKey(Pchar('F:\'),Pchar(''));
label1.Caption:=GetVerbaErrorStr(err_code);
end; gvido писал(а):err_code:=InitKey(Pchar('F:\'),Pchar(''));
vitaly_l писал(а):Если ассемблерный листинг не поможет, то:
проверьте программу на утечку памяти (если проверка постоянно не включена).
vitaly_l писал(а):Pchar('F:\') <== вот так точно работать не будет.
vitaly_l писал(а):Pchar('F:\') <== вот так точно работать не будет.
serbod писал(а):Это почему? Для констант приведение к PChar не обязательно, но должно ведь работать.
gvido писал(а):Вот что поймал с проверками:
https://yadi.sk/i/4KrqbwCF3Lt65t
sts писал(а):да враппер с темже интерфейсом функции запилили бы уже и посмотрели что передается.
vitaly_l писал(а):А куда адрес-то? В память выделенную программе? Туда, вообще-то адрес давать и брать - низяаа ...
vitaly_l писал(а):Кидайте код с тестовым проектом, дальше уже не мой уровень, нужен кто-то из "взрослых" программистов.
vitaly_l писал(а):А куда адрес-то? В память выделенную программе? Туда, вообще-то адрес давать и брать - низяаа ...