Вызов ф-ции из библиотеки на Си

Всем привет! Что-то голова не работает помогите плиз..

есть dll на C и функция в ней обьявлена как.

char * Get_Adrr(int mode);

в дельфевом приложении соотвественно

function Get_Adrr(mode: Integer): PChar; stdcall; external dll_name;
....
var
Res: Pchar;
St:String;
begin
....
res := Get_Adrr(0);

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

 for I := 0 to Len do
 begin
      St := St + Res[I];
 end;

как бы от цикла избавиться ... и нормально строку получать от ф-ции ???

Jozo

есть dll на C и функция в ней обьявлена как. char * Get_Adrr(int mode); ... ... ... function Get_Adrr(mode: Integer): PChar; stdcall; external dll_name;

cdecl ?

StrPas + F1

Posted via ActualForum NNTP Server 1.3

ZrenBy
пробовал .. не выходит

FlyD
Рано ей еще пользоваться PChar пустой

Jozo

FlyD Рано ей еще пользоваться PChar пустой

1. Это ответ на Ваш вопрос "как бы от цикла избавиться".
2. PChar может быть действительно пустым. Вы уверены, что
верно задали значение входного параметра?
3. Что значит пустой? Равно nil или ''?

Posted via ActualForum NNTP Server 1.3

s : AnsiString

s := Get_Adrr(3)

у меня работало без Pchar
______________________________________________
Вы имеете право хранить молчание! Всё что Вы скажете может быть использовано против Вас в суде!

А может попробывать Result:=PChar(Get_Adrr(mode))?

Или вариантом её взять?

Все.. разобрался
setString вполне подошел :)