Главная страница
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.014 c
3-6898
Vitamin
2002-05-13 10:45
2002.06.03
получить список таблиц


1-6971
SPeller
2002-05-21 15:35
2002.06.03
Буттон обыкновенный


4-7254
Ziggi
2002-03-29 00:59
2002.06.03
Как отловить нажатие клавиши (любой) в реал-тайме?


14-7224
Rammish
2002-04-28 18:56
2002.06.03
О


7-7249
Серый
2002-03-03 19:09
2002.06.03
GM56E-V и Win XP