Передать wchar_t* из Си dll в Делфи приложение.

[spamer]

Есть Си длл, в ней экспортированная функция:

extern "C" void __declspec(dllexport) Test(wchar_t* str)
{
	str = L"test";
}

В Делфи пытаюсь произвести вызов таким образом:

...
procedure Test(out str: PWideChar); cdecl; external 'MyDLL.dll';
...
procedure TForm1.Button1Click(Sender: TObject);
var
  s: PWideChar;
begin
  Test(s);
end;

Но результат не самый лучший - "Точка входа в процедуру...и т.д.". Видимо типы параметров в Делфи не совсем правильные. Кто что может подсказать?
А и сама цель всего этого - из длл вернуть текст через параметр.

[Пепел Феникса]

1)так как вы не используете def файл, то имя скорее всего не то что вы ожидаете.
проверьте сначало.
2)неверно написана процедура, она в принцице ничего не вернет, нужно или применять strcpy.
или же можно просто вернуть указатель на вашу строку.
3)так же неверно описание процедуры в Делфи.
4)ну и вызов неверен.
как бы делал я.
С++,длл:

//допустим данные в неком std::wstring data, и могут меняться

int __stdcall Test(wchar_t* buffer, int bufferlength)//stdcall больше мне по душе, 
//но мой вам совет, указывайте всегда явно соглашение вызова
{
    if(bufferlength>=data.size()+1)
        wcscpy(str,);
    return data.size()+1;
}

экспорт через def-файл, иначе можете долго гадать с именем.

в Делфи:

procedure Test(buffer: PWideChar;bufflength:integer); stdcall; external 'MyDLL.dll';

function Test:string;//и пишем оберточку удобную:)
begin
 SetLength(Result,Test(nil,0));
 Test(@Result[1],Length(Result)+1);
end;

как то так

[spamer]

Так...с этим все ясно, спасибо.
Но все же остался еще один вопрос - а с одним параметром нельзя никак провернуть это дело? Ну что бы вот как-то так:

int __stdcall Test(wchar_t* buffer)

[Пепел Феникса]

можно, но не стоит, ошибкостойкость(точнее возможность минимизировать ошибки) кода снижаете.

хотя, у вас в ДЛЛ константа или же изменяемое значение?

[spamer]

хотя, у вас в ДЛЛ константа или же изменяемое значение?

По сути там и то, и другое. Т.е. при нормальном исходе работы функции - возвращается динамическое(ну т.е. изменяемое значение), а вот если что-то пошло не так - нужно вернуть предопределенные строковые константы). Вот и хочется как-то привести к вызову с одним параметром.

можно, но не стоит

А все же можете уточнить?

[Пепел Феникса]

подход с одним параметром приведет к тому, что мы не будем знать размер буфера, и будем тупо копировать данные по указателю, соответственно если вызывающий ждал 5символов, а мы скопируем 10, то будет ошибка.

[Rififi]

spamer

А все же можете уточнить?

подход, который ты практикуешь, страдает уязвимостью к переполнению буфере, который является проблемой безопасности #1. Главная же опасность для программиста заключается в том, что в нормальных конторах таких быстро отстреливают.

[spamer]

Rififi, не верно мыслите, ибо вот такой способ мне действительно не нужен, когда не известно рухнет приложение или нет...Поэтому вобщем-то и спрашиваю совет...
Тут вот что еще подумал - известно, что данные не смогут превышать определенный размер N (т.е. меньше может быть, но не больше), тогда ведь можно объявить константу под размер буфера, например Nmax байт и независимо от того, какой размер данных(т.е. это сформированная строка или предопределенная), передавать всегда Nmax байт.
Вроде вариант нормальный, хотя может чего-то не учел. Что можете сказать по этому поводу?

[Пепел Феникса]

const int N=255;//длина именно данных

int __stdcall Test(wchar_t* buffer)//stdcall больше мне по душе, 
//но мой вам совет, указывайте всегда явно соглашение вызова
{
    buffer[N]=0;//терминал ставим явно.
    wcsncpy(str,data.c_str(),N);
    return data.size();//возвращаем реальную длину данных
}

procedure Test_import(buffer: PWideChar); stdcall; external 'MyDLL.dll' name 'Test';

function Test:string;//и пишем оберточку удобную:)
const N:integer=255;
begin
 SetLength(Result,N);
 SetLength(Result,Test_import(@Result[1]);
end;

вполне удобно помоему выходит.
проблемы с переполнением исключены, и раз вы сами можете поставить эти рамки то код вас ничем не ограничивает.

[spamer]

Значит решено. Как раз последний вариант меня устраивает.
Пепел Феникса, спасибо.