Ich habe hier mal eine neue Frage
Meine Idee ist es die PLZ und dazugehöriges Bundesland in einer bzw. zwei
DLL’s zu hinterlegen (plz.dll, bund.dll) dazu habe ich in jeder
dll eine ComboBox mit den Postleitzahlen und in der anderen
dll das gleiche mit den Bundesländern gemacht.
Nun wollte ich in meinem Projekt zwei Editfelder haben wo ich die PLZ als Beispiel eingebe und er aus der bund.dll mir dann das dazugehörige Bundesland holt und in dem anderen Editfeld aus meinem Projekt dort übergibt.
Frage stellt sich nur wie ich in dem Projekt die
Dll’s anspreche damit diese den Wert in das jeweilige Editfeld übergeben.
Und wie schaffe ich es, dass er die PLZ den Bundesländern richtig zuordnet wenn ich diese getrennt in den jeweiligen
Dll’s lasse.
Grundidee war:
Delphi-Quellcode:
library Formdll;
uses
dialogs,
sysutils,
PLZ
in '
PLZ.pas'
{PLZ},
Bundesland
in '
Bundesland.pas'
{Bundesland};
procedure Fensteranzeigen;
stdcall;
begin
PLZ1:= TPLZ.create(
nil);
try
PLZ1.showmodal;
finally
Plz1.Release;
// .free;
end
end;
procedure NewExit;
begin
showMessage('
Exitprozedur der DLL');
{ DLL wird entladen }
end;
exports
PLZ.
Bundesland;
begin
AddExitProc(NewExit);
showmessage('
DLL wird geladen ...');
end.
und dann die PLZ und die Bundesland
Delphi-Quellcode:
unit Bundesland;
interface
uses
SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
Forms, Dialogs, StdCtrls;
type
TBundesland =
class(TForm)
Button1: TButton;
ComboBox1: TComboBox;
procedure Button1Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Bundesland1: TBundesland;
implementation
{$R *.DFM}
procedure TBundesland.Button1Click(Sender: TObject);
begin
close
end;
end.
Delphi-Quellcode:
unit PLZ;
interface
uses
SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
Forms, Dialogs, StdCtrls;
type
TPLZ =
class(TForm)
Button1: TButton;
ComboBox1: TComboBox;
procedure Button1Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
PLZ1: TPLZ;
implementation
{$R *.DFM}
procedure TPLZ.Button1Click(Sender: TObject);
begin
close
end;
end.
ist der weg richtig oder ändet das wieder bevor es begonnen hat