VPF::Библиотека и передача строкового параметра

Gwire

Дата 17.3.2009, 22:37 (ссылка)

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

Загрузка ...

Бывалый

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

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

Всем доброе время суток.
smile

Есть некая библиотека Lib1 с процедурой:

Код


procedure GetInfo(Title, Hint: String);
begin
    Title:= 'The Title';
    Hint:=  'The Hint';
end;

Если ее использовать внутри библиотеки Lib1 то все замечательно.
Но мне нужно применить ее из отдельной программы, где я пишу:

Код


procedure GetInfo(Title, Hint: String); external 'Lib1.dll';

И при ее вызове программа матерится на невозможность доступа к памяти.
Пробовал с PChar вместо Srting. Дела обстоят лучше но результат - иероглифы в Title, Hint.

Код


// Вызываю процедуру просто, без заморочек.
// Но подозреваю, что что-то здесь нужно сделать с "T" и "H".....
GetInfo(T, H);

..... но что? Помоготе разобраться.

kami

Дата 17.3.2009, 22:56 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1806
Регистрация: 25.8.2007
Где: Санкт-Петербург

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

А что тут думать?
Создайте чистый проект dll и прочитайте, что там написано борландом. На всякий случай процитирую с переводом:
Если предполагается передача строк между программой и dll, то и в той и в другой ПЕРВЫМ модулем в uses должен стоять ShareMem. В этом случае вместе с разработанной dll в обязательном порядке должна идти BORLNDMM.DLL.

Цитата(Gwire @ 17.3.2009, 22:37

)

Пробовал с PChar вместо Srting. Дела обстоят лучше но результат - иероглифы в Title, Hint.

код в студию.

Gwire

Дата 18.3.2009, 11:49 (ссылка)

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

Загрузка ...

Бывалый

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

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

Для kami

Код


procedure GetInfo(var T, H: PChar);
begin
    T:= 'The Title';
    H:= 'The Hint;
end;

Код


var T, H: PChar;
begin
    GetInfo(T, H);
    ShowMessage( T );
    ShowMessage( H );
end;

Это работает.
smile

Я, предыдущий раз, var забыл поставить.
У модераторов есть 2 варианта: удалить тему или оставить как наглядный пример о банальности ошибок

Демо

Дата 19.3.2009, 02:01 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1278
Регистрация: 3.11.2005

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

Цитата(Gwire @ 18.3.2009, 11:49

)

Это работает.

Не будет это работать.
kami ведь написал, что нужно сделать.

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

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