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

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

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

Передать из DLL большую строку

MaxSit © (2002-04-04 20:45:00)
Вопрос такой: как из DLL передать очень длинную строку? Использовать String и Sharemem к ниму не предлогать.
Заранее спасибо.

Fantasist (2002-04-05 02:43:00) [1]
Ну че вы извращаетесь то. :) Клуб мазохистов? :D

Почему работает это:
Per:=PChar("Блин, ну когда уже заработает");

Потому что, в отличие от:
Per:=PChar(Form1.Memo1.Text);

Здесь не только возвращается адрес(его пока еще не существует), но и выделяется память. То есть вначале она выделяется, а потом возвращается адрес на эту память.Функции WinApi в таких случаях требуют от вас выделить память, прежде чем передавать им PChar.
Можно так и делать в вашем случае. Память можно выделить StrAlloc. Это можно, конечно, сделать и в dll, но тогда клиент должен сам заботиться об освобождении памяти.

Так как у вас здесь:
var Global_Var_PChar: String; ... procedure MProcDLL(Per: PChar); begin try Application.Create(TForm1, Form1); Form1.Memo1.Add(Per); Form1.ShowModal; Global_Var_PChar:=Form1.Memo1.Text; finally Form1.Hide; Form1.Free; end; Per:=PChar(Global_Var_PChar); end;

Выглядит очень удобно, так как компилятор за вас производит необходимое выделение и освобождение памяти(операции с переменно string) Однако, вот так вот:
Per:=PChar(Global_Var_PChar);
Вы передаете адрес на ваш Glodal string и клиент использует этот адрес. Теперь если вы внезапно поменяете значение Global_Var_PChar в своей dll, то клиент с удивлением обнаружит, что его строка которую он получил из вашей dll изменилась сама собой без всяких действий с его стороны!

Sergey_n (2002-04-05 01:15:00) [2]
Попробй поюзать SAFEARRAY, иногда помогает ;))))

MaxSit (2002-04-05 00:48:00) [3]
Вероятно не очень понятно:

Вот сама DLL:

procedure MProcDLL(Per: PChar); StdCall; exports MProcDLL;

var Global_Var_PChar: String;
...
procedure MProcDLL(Per: PChar);
begin
try
Application.Create(TForm1, Form1);
Form1.Memo1.Add(Per);
Form1.ShowModal;
Global_Var_PChar:=Form1.Memo1.Text;
finally
Form1.Hide;
Form1.Free;
end;
Per:=PChar(Global_Var_PChar);
end;
и именно в таком порядке...

MaxSit (2002-04-05 00:45:00) [4]
Идея интересная, даже все заработало, но стала выдаваться следующая ошибка, после завершения всего приложения:

"A call to an OS function failed."

Заработал другой вариант: объявил глобальную переменную в DLL, присваеваю значение Form1.Memo1.Text, затем грохаю форму, и только потом пишу:

Per:=PChar(Global_Var_PChar);

Все работает, спасибо за наводку.

LazorenkoX (2002-04-05 00:28:00) [5]
Это конечно глупое предположение, но давай сделаем как можно меньше сомнений.

Попробуй добавь это в главный бегин ДЛЛки:
begin Application.Initialize; Form1 := TForm1.Create(Application); Application.Run; end;

И убери из своего кода Application.Create(TForm1, Form1);

MaxSit (2002-04-05 00:22:00) [6]
Причем, если сделать:

try
// Application.Create(TForm1, Form1);
// Form1.Memo1.Add(Per);
// Form1.ShowModal;
Per:=PChar("Блин, ну когда уже заработает");
finally
// Form1.Hide;
// Form1.Free;
end;
end;

то все работает без проблем ??? Значит побороть то можно...

Fantasist (2002-04-05 00:01:00) [7]
>Ошибка возникает, если вызываешь и статически и динамически, разницы нет.

Mы в это и не сомневались. Тут лучше действительно потрейсить dll так как скорее всего твое предположение верно. PChar - это указатель на char, а преобразование:

p:pchar;
s:string;
p:=PChar(s);

скорее всего означает то же, что и
p:=@s[1];

Да должно быть так. Я просто точно не помню, может все-таки Delphi извратился, и создает копию, но это легко проверить.

MaxSit (2002-04-04 23:13:00) [8]
Ошибка возникает, если вызываешь и статически и динамически, разницы нет.

Вот сама DLL:

procedure MProcDLL(Per: PChar); StdCall; exports MProcDLL;
...
procedure MProcDLL(Per: PChar);
begin
try
Application.Create(TForm1, Form1);
Form1.Memo1.Add(Per);
Form1.ShowModal;
Per:=PChar(Form1.Memo1.Text); // может тут загвостка, предполагаю.
finally
Form1.Hide;
Form1.Free;
end;
end;

Мне кажется, что PCHAR это указатель, который теряется после уничтожения формы. Поправьте, если не так.

Fantasist (2002-04-04 22:43:00) [9]
Да нет, подключать можно и статически, тогда LoadLibrary делать не надо.
Покажи код MyProc.

LazorenkoX (2002-04-04 21:23:00) [10]
Твой Unit:
//Сначала надо объявить процедуру function MyProc(var Per: PChar): Boolean; implantation begin //Загружаем библиотеку q:=LoadLibrary(DLL_Const); //ЗАДАЁМ АДРЕС ПРОЦЕДУРЫ!!! (точно не помню параметры): @MyProc:=GetProcAddress(q, "MyProc"); //Теперь вызываем. MyProc(Per); showmessage(Per); --> вот и вылетает; FreeLibrary(q); end;
Если не получится попробуем изменить код ДЛЛки

MaxSit (2002-04-04 21:03:00) [11]
Да вот, не пашет. Говорит, Аксес виолатион у Вас, батенька.

procedure MyProc(var Per: PChar); StdCall; external DLL_Const Name "MyProcDLL";

q:=LoadLibrary(DLL_Const);
Per:=PChar("Привет");
MyProc(Per);
showmessage(Per); --> вот и вылетает;
FreeLibrary(q);

Что я делаю не так?

MaxSit (2002-04-04 21:03:00) [12]
Да вот, не пашет. Говорит, Аксес виолатион у Вас, батенька.

procedure MyProc(var Per: PChar): Boolean; StdCall; external DLL_Const Name "MyProcDLL";

q:=LoadLibrary(DLL_Const);
Per:=PChar("Привет");
MyProc(Per);
showmessage(Per); --> вот и вылетает;
FreeLibrary(q);

Что я делаю не так?

LazorenkoX (2002-04-04 20:51:00) [13]
PChar

Наверх

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