Обращение из Delphi к DLL написанной на C++

[smirnoff843]

Здравствуйте! У меня вопрос по работе с типом puchar. Такая ситуация: имеется dll файл написанный на C++Builder. Из dll экспортируется функция следующим образом

extern "C" bool __declspec( dllexport ) func1(unsigned char *input, unsigned char *output);

В проекте Delphi импортируем эту функцию:

function func1(input: pointer; output: pointer): bool; cdecl;
external 'my.dll' name '_func1';

Работаем с импортированной функцией func1:

procedure TForm1.Button1Click(Sender: TObject);
var
  i :integer;
  s : string;
  a: array[0..30000] of char;
  b: ^uchar;

  a2: array[0..60000] of uchar;
  b2: ^uchar;
begin
StrCopy(a, pchar(Memo1.Text));

b := @a;
b2 := @a2;

func1(b,b2); 

for I := 0 to Length(Memo1.Text) do
s := s + chr(a2[i]);
Memo2.Text := s;
end;

Проблема в том, что func1 видит только первый (нулевой) символ массива "a", а необходимо, чтобы весь массив был доступен для dll.

Вот в dll выводится на экран параметр input

ShowMessage((char *)input);

Объясните, пожалуйста, как правильно передать указатель на uchar из Delphi в dll. Заранее огромное спасибо!

[BOBAH13]

Объясняю: func1(@a, @a2);
не обязательно создать тип ^uchar или ^char... это дельфи
В вызовах вы все верно написали... может быть проблема вообще в коде (в библиотеки)?

[smirnoff843]

Вот для наглядности код DLL:

#include <vcl.h>
#include <windows.h>
#pragma hdrstop

#pragma argsused
int WINAPI DllEntryPoint(HINSTANCE hinst, unsigned long reason, void* lpReserved)
{
	return 1;
}
//---------------------------------------------------------------------------
extern "C" bool __declspec( dllexport ) func1(unsigned char *input, unsigned char *output);
extern "C" void __declspec( dllexport ) test();

bool func1(unsigned char *input, unsigned char *output)
{
ShowMessage((char *)input);
input = output;
}

void test()
{
unsigned char *input = "test";
func1(input,input);
}

Обращение из Delphi:

function func1(input: pointer; output: pointer): bool; cdecl;
external 'my.dll' name '_func1';
procedure test(); cdecl;
external 'my.dll' name '_test';

procedure TForm1.Button1Click(Sender: TObject);
var
  i :integer;
  s : string;
  a: array[0..30000] of char;
  b: ^uchar;

  a2: array[0..60000] of uchar;
  b2: ^uchar;
begin
StrCopy(a, '123456');
test();   //проверка вызова func1 внутри dll
b := @a;
b2 := @a2;
func1(@a,@a2); //вызов func1 из dll
end;

При вызове func1(@a,@a2); видим только символ "1", нужно вывести все содержимое массива.

[smirnoff843]

всем спасибо за участие. проблема решена. нужно было компилировать в 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;

[BOBAH13]

Delphi 2009 - Unicode compatibility т.е. char - widechar значит к примеру '1' as char = '1'#$00 думаю поняли, почему тогда если смотреть как ansichar то и получается что 1 и дальше 0, значит строка = 1 Delphi 7 - char = ansichar -> значит и все ок.

[Evgeniy26]

Сообщение от smirnoff843

delphi 2009 неправильно передает указатель на массив

В Delphi 2009 используй PAnsiChar в место PChar. Опоздал.

[vlkc]

Поднимаю тему. Помогите перевести на депфи:

struct LPRResultData
{
RECT lprRect;
char lprStr[20];
float conf;
int isPassed;
};


#ifdef __cplusplus
extern "C" {
#endif

void LPR_EngineCreate(const char szDicPath);

int LPR_Process(void hEngineHandle, char filename, LPRResultData*& pPlates);

void LPR_EngineDestroy(void* hEngineHandle);

#ifdef __cplusplus