Показать сообщение отдельно
  #7  
Старый 03.07.2009, 22:24
smirnoff843 smirnoff843 вне форума
Прохожий
 
Регистрация: 03.07.2009
Сообщения: 5
Репутация: 10
Радость

всем спасибо за участие. проблема решена. нужно было компилировать в delphi 7. (delphi 2009 неправильно передает указатель на массив)

Код:
function func1(input: pchar; output: pchar): bool;  cdecl;
external 'my.dll' name '_func1';


procedure TForm1.Button1Click(Sender: TObject);
var
  a: array[0..40] of char;
  b: pchar;
begin
  a := 'drtj2sdasdasdasd';
  b := @a;
  func1(b,b);
end;
Ответить с цитированием