Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.06.03;
Скачать: CL | DM;

Вниз

Как передать String в DLL?   Найти похожие ветки 

 
Glonia Zbanov ©   (2002-05-17 11:18) [0]

Как передать String и DataSet в DLL?


 
Andykor   (2002-05-17 14:13) [1]

Делаешь примерно следующее:
1. Dll.
В нее добавлена форма Form1, на нее добавлен DataSource1.

library dllDB;

uses
SysUtils,
Classes,
StdCtrls,
Forms,
Windows,
DB,
dbtables,
ddlDB1 in "ddlDB1.pas" {Form1};

procedure OpenDataSet(Str:PChar; DBDataSet:TDBDataSet; AppHandle:THandle);
begin
try
Application.Handle:=AppHandle;
Form1:=TForm1.Create(Application);
Form1.Label1.Caption:=String(Str);
Form1.DataSource1.DataSet:=DBDataSet;
Form1.DataSource1.DataSet.Open;
Form1.ShowModal;
finally
Form1.Free;
end;
end;

exports
OpenDataSet;

begin
end.

2. Программа.

На форму добалена Table1.

procedure OpenDataSet(Str:PChar; DBDataSet:TDBDataSet; AppHandle:THandle); external "dlldb.dll"

procedure TForm2.Button1Click(Sender: TObject);
begin
OpenDataSet("Пример",Table1,Application.Handle);
end;



 
PC Maniac   (2002-05-21 20:29) [2]

По поводу String. В каждой библиотеке, создаваемой дельфи есть сообщение по поводу delphimm.dll (так кажется) но проще передавать короткие строки в dll. Например string[20] или что-то вроде этого. Но IMHO гораздо проще для этого использовать PChar.


 
Внук ©   (2002-05-22 15:49) [3]

>>PC Maniac (21.05.02 20:29)
Наверно, имелось в виду ShareMem.dcu? :)



Страницы: 1 вся ветка

Текущий архив: 2002.06.03;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.009 c
14-7160
drpass
2002-04-22 17:26
2002.06.03
Программист и семья


3-6893
Shkolnik
2002-05-13 10:21
2002.06.03
Забыл книгу не у кого спросить, помогите !


1-6987
Kopachev
2002-05-22 21:51
2002.06.03
В чем я не прав


14-7174
Malder
2002-04-24 23:56
2002.06.03
Где найти документацию по HTML Help WorkShop ?


1-6952
ask
2002-05-21 10:24
2002.06.03
Close form //извините, поиск не работает