Я вообще ни чего не понимаю! Начал попорядку - с фунцкции
faacEncGetVersion.
char **faac_id_string по идеи должен быть в Delphi
faac_id_string: array of string,
*faac_id_string = libfaacName по идеи - запись в первый элемент массива, но ничего не работает, чисто интуитивно догадался, что надо писать так:
Код:
function faacEncGetVersion(var faac_id_string, faac_copyright_string: string):integer; stdcall; external 'libfaac.dll';
Но если написать:
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
s1, s2: string;
i1: integer;
begin
i1:=faacEncGetVersion(s1, s2);
ShowMessage(IntToStr(i1));
ShowMessage(s1);
ShowMessage(s2);
end;
,то если идти пошагово, то возникает access violation на строке
end;(!!), хотя в s1 - версия (ну хоть что-то получилось!!), что в s2, watch не говорит (Inaccessible value), в i1 - 144 (что это?? ну да ладно..)