[Proger10]

Есть dll'ка (исходники насколько понял в папке libfaac) написанная на C мне нужно использовать ее в Delphi. Люди, знающие и то и то, помогите! Нужно написать pas-файлик в котором импортируются следующие фунции:

Код:

faacEncClose
faacEncEncode
faacEncGetCurrentConfiguration
faacEncGetDecoderSpecificInfo
faacEncGetVersion
faacEncOpen
faacEncSetConfiguration

и всё, что нужно для их вызова (record'ы, типы, и т.д.)

[Bars1992]

А зачем переводить??? dll для того был и создан чтоб процедуры написанные на одном языке легко использовались в программах написаных на другом.

[Proger10]

Это понятно! Но какие параметры нужны процедурам? Там вроде есть записи, значит их надо описать. Для этого нужны хоть какие-то знания языка на котором написана dll, которых у меня к сожалению пока нет..

[Bars1992]

Если ты знаешь язык турбо паскаль то чтоб выучить с++ много времени не нужно. За 10 мин я думаю ты поймешь как в си записываются записи процедуры и функции.

Если умеешь ездить на лигковом автомобиле то на грузовик пересесть не сложно)))

[Proger10]

Я вообще ни чего не понимаю! Начал попорядку - с фунцкции 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 (что это?? ну да ладно..)

[Proger10]

upupupupup