Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

DLL&ModalForm - Возвращение значения от DLL [D7, WinXP]

Максим © (2004-10-21 16:02:00)
Мастера - Здрасте!
Вот такая штука - Есть Dll в которой есть форма с TRichEdit, там же имеется процедура создания формы:

function ShowForm(AHandle: THandle; var Lines: TStrings): word;
var
MyForm: TForm1;
begin
Application.Handle := AHandle;
MyForm := TForm.Create(Application);
try
Result := MyForm.ShowModal;
Lines := MyForm.RichEdit1.Lines;
finally
MyForm.Free;
end;
end;

И есть приложение, которое вызывает эту процедру.
procedure TForm1.Button1Click(Sender: TObject);
var
Strs: TStrings;
begin
Strs := TStrings.Create;

ShowTextEditor(Handle, Strs);
Form1.RichEdit1.Lines := L;

Strs.Free;
end;
Вызвали первый раз - Форма создается. При закрыти Созданной формы вызывается ошибка
" Cannot assign a TRichEditStrings to a TRichEditStrings"
Вызываем во-второй и последующие разы - Форма создается. При закрыти Созданной формы вызывается ошибка" Access violation"

А если возвращать не TStrings а String то все работает нормально.
Есть предположение что при вызове метода MyForm.Free MyForm.RichEdit1.Lines попросту не существует. Так ли это?

Помогите...

Заранее спасибо.

Digitman (2004-10-21 17:02:00) [1]

> сделал я по другому - создал немодальную форму

что это меняет ? ничего !

по поводу возврата строк - внимательно читай комментарий, вставляемы Визардом при генерации ДЛЛ-проекта

Максим (2004-10-21 16:57:00) [2]
Ну сделал я по другому - создал немодальную форму
Но как врзвратить строки при закрытии???

Digitman (2004-10-21 16:30:00) [3]

> Максим (21.10.04 16:22) [2]

да у тебя тут вообще - полный бардак

MyForm := TForm.Create(Application);
try
Result := MyForm.ShowModal;
Lines := MyForm.RichEdit1.Lines; //ты сослался на ПОКА ЕЩЕ существующий объект класса TStrings
finally
MyForm.Free; // а здесь форма и TStrings-объект, на который ты сослался как на возвр.значение, уничтожаются тобой явно !
end;

вопрос тебе на засыпку : на кой шут вызывающему коду нужна ссылка на объект TStrings, которого уже нет ? который ты убил собственными руками в вызываемом коде ?

Максим (2004-10-21 16:22:00) [4]
возвращается пустое значение с сообщенем
Control "" has no parent Window - обратите внимане на "", даже неизвестен контрол

Digitman (2004-10-21 16:07:00) [5]
собери оба проекта с опцией использования ран-тайм-пакетов и не мучайся

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »