VPF::Указатели в сишном стиле. - Форум программистов

makavelly

Дата 23.1.2012, 23:18 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 20
Регистрация: 26.3.2008

Репутация: нет
Всего: нет

Не могу никак сообразить. Функция из c++ dll возвращает, как написано в описании к ней, массив строк (return Null-terminated array of null-terminated strings) в виде ** char. Как к этому подступиться в Delphi? Результат принимается в переменную типа PPChar, как извлечь из нее обещанные строки?

Чучмек

Дата 24.1.2012, 00:22 (ссылка)

(нет голосов)

Загрузка ...

НЭТ БИЛЭТ

Профиль
Группа: Участник
Сообщений: 841
Регистрация: 11.5.2008
Где: СССР

Репутация: 14
Всего: 41

Ну а первая строка есть?

Добавлено @ 00:36

Код


var p:ppchar;

p:=func(...);
n:=0;
while p<>nil do
 begin
 ms[n]:=p^;
 cardinal(p):=cardinal(p)+4;
 inc(n);
 end;

Это сообщение отредактировал(а) Чучмек - 24.1.2012, 00:38

--------------------

умную мысль держи при себе, а дурной - поделись с другими

makavelly

Дата 24.1.2012, 20:37 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 20
Регистрация: 26.3.2008

Репутация: нет
Всего: нет

Благодарю, все заработало, буду иметь ввиду. Век живи, век учись smile

Код


  ppc : PPChar;

  ppc:= nil;
  ppc:= C_FUNCTION(...);
  if Assigned(ppc) then
    while ppc^ <> nil do
    begin
      WriteLn(ppc^);
      Cardinal(ppc):= Cardinal(ppc) + 4;
    end;

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »