delphi DLL呼叫表單后出現錯誤。

library ProInfoDll;



uses

  Sharemem,

  Forms,

  Windows,

  Messages,

  SysUtils,

  Classes,

  Graphics,

  Controls,

  Dialogs,

  Unit1 in 'Unit1.pas' {Form1},

  Unit2 in 'Unit2.pas' {Form2},

  Unit3 in 'Unit3.pas' {Form3},

  Unit4 in 'Unit4.pas' {Form4},

  Unit5 in 'Unit5.pas' {DataModule5: TDataModule},

  Unit6 in 'Unit6.pas' {Form6},

  Unit8 in 'Unit8.pas' {Form8},

  Unit9 in 'Unit9.pas' {Form9};



{$R *.res}



procedure ProvaChild(ParentApplication: TApplication; ParentForm: TForm); export; stdcall;

var

  Form1: TForm1;

  DllProc: Pointer;             { Called whenever DLL entry point is called }



begin

   Application:=ParentApplication;



   Form1:=TForm1.Create(ParentForm);

   Form1.MyParentForm:=ParentForm;

   Form1.MyParentApplication:=ParentApplication;

//   windows.SetParent(Form1.Handle,ParentForm.Handle);

//   Form1.FormStyle:=fsMDIChild;

   Form1.Show;

end;



procedure DLLUnloadProc(Reason: Integer); register;

begin

  if Reason = DLL_PROCESS_DETACH then  Application:=DllApplication;

end;



exports

   ProvaChild;



begin

   DllApplication:=Application;

   DLLProc := @DLLUnloadProc;

end.

procedure TForm9.ToolButton2Click(Sender: TObject);

var

   DllHandle: THandle;

   ProcAddr: FarProc;

   ProvaChild: T_ProvaChild;

begin

  Panel1.Visible:=False;

  Panel2.Visible:=False;

  DllHandle := LoadLibrary('ProInfoDll');

   ProcAddr := GetProcAddress(DllHandle, 'ProvaChild');

   if ProcAddr <> nil then

   begin

      ProvaChild := ProcAddr;

      ProvaChild(Application,Self);

   end;



end;

uj5u.com熱心網友回復：

  private

    { Private declarations }

    procedure AddClass(AId:integer;FatherNode:TTreeNode);//添加分類程序

    procedure AddDataToDB(CurrNode,FatherNode:TTreeNode);//添加實際資料到資料庫

  public

    { Public declarations }

    MyParentForm: TForm;

    MyParentApplication: TApplication;

    procedure FillTreeView(TreeView: TTreeView);







  end;



var

  Form1: TForm1;

        //CurrentTreeNode: TTreeNode;

    // AddChildeTreeNode: TTreeNode;

    // flag:boolean; //用于標識是否需要在重命名樹結點時更新資料

     DllApplication: TApplication;

procedure TForm1.AddClass(AId: integer; FatherNode: TTreeNode);

var

    QryTmp:TADOQuery;

    myNode:TTreeNode;

    myLabel:TLabel;

begin

    QryTmp:=TADOQuery.Create(self);

    QryTmp.Connection:=ADOConnection2;

    QryTmp.SQL.Add('select * from Type');

    QryTmp.SQL.Add('where ParentID='+inttostr(AId));

    QryTmp.Open;

    while not QryTmp.Eof do

    begin

        myNode:=Treeview1.Items.AddChild(FatherNode,QryTmp.fieldbyname('Name').AsString);



        //創建標簽，caption存放各分支的AutoId表識

        myLabel:=TLabel.Create(self);

        myLabel.Visible:=false;

        myLabel.Caption:=QryTmp.fieldbyname('ID').AsString;

        myNode.Data:=myLabel;



        AddClass(QryTmp.fieldbyname('ID').AsInteger,myNode); //遞回呼叫程序

        QryTmp.Next;

    end;

    QryTmp.Free;

end;



procedure TForm1.AddDataToDB(CurrNode, FatherNode: TTreeNode);

var

    myLabel:TLabel;

    QryTmp:TADOQuery;

    AId:integer;

begin

    if not assigned(FatherNode) then

        AId:=0

    else if not assigned(FatherNode.Data) then

        AId:=0

    else

        AId:=strtoint(TLabel(FatherNode.Data).caption);

    QryTmp:=TADOQuery.Create(self);

    QryTmp.Connection:=ADOConnection2;

    QryTmp.SQL.Add('select * from Type');

    QryTmp.SQL.Add('where ParentID ='+inttostr(AId));

    QryTmp.Open;

    QryTmp.Append;

    QryTmp['ParentID']:=AId;

    QryTmp['Name']:=CurrNode.Text;

    QryTmp.Post;



    //創建記錄currNode的AutoId表識標

    myLabel:=TLabel.Create(self);

    myLabel.Visible:=False;

    MyLabel.Caption:=QryTmp.fieldbyname('ID').AsString;

    CurrNode.Data:=myLabel;



    QryTmp.Free;



end;



procedure TForm1.FillTreeView(TreeView: TTreeView);

  procedure CreateSubTree(FNodeName: string; Node: TTreeNode = nil);

  var

    mLocalName: string;

    TreeNode: TTreeNode;

    Ads_Tmp: TADODataSet;

  begin

    ADS_Tmp := TADODataSet.Create(Self);

    ADS_Tmp.Connection := DataModule5.ADOConnection2;

    with ADS_Tmp do

    try

      Close;

      CommandText := 'Select * from Type Where ParentID =' + FNodeName;

      Open;

      First;

      while not Eof do

      begin

        mLocalName := FieldbyName('ID').Asstring;

        TreeNode := TreeView.Items.AddChild(Node, FieldByName('Name').AsString);

        CreateSubTree(mLocalName, TreeNode); // 此處回圈遞回

        Next;

      end;

    finally

      ADS_Tmp.Free;

    end;

  end;

begin

  TreeView.Items.BeginUpdate;

  TreeView.Items.Clear;

  with TreeView.Items.Add(nil, '所有種類') do

  begin

    SelectedIndex := 1;

  end;

   with TreeView.Items.Add(nil, '未分類產品') do

  begin

    SelectedIndex := 2;

  end;

   with TreeView.Items.Add(nil, '優勢產品') do

  begin

    SelectedIndex := 3;

  end;

  CreateSubTree('0', TreeView.Items[0]);

  TreeView.Items.EndUpdate;

  TreeView.Items[1].Selected := True;

end;



procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

begin

  Action:=caFree;

  ADOQuery2.Close;

  Form9.Panel1.Visible:=True;

  Form9.Panel2.Visible:=True;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

  ADOQUERY1.RecordCount;

  StatusBar1.Panels[2].Text:='共'+ InttoStr(ADOQUERY1.RecordCount) +'條';

  StatusBar1.Panels[4].Text:='錄入時間:'+DBEdit34.Text;

  ADOQuery2.Open;

  with TreeView1 do

begin

  Items.BeginUpdate;

  Items.Clear;

  FillTreeView(TreeView1);

  Items.EndUpdate;

end;

procedure TForm1.N1Click(Sender: TObject);

var

    //strName:string;

    myNode:TTreeNode;

begin

    Form2:=TForm2.Create(nil);

    if (Form2.ShowModal = mrYes) then   

    myNode:=treeview1.Items.AddChild(treeview1.Selected,Form2.Edit1.Text);

    AddDataToDB(myNode,treeview1.Selected);

    myNode.selected:=true;

end;





procedure TForm1.N2Click(Sender: TObject);

begin

    if MessageDlg('確定要洗掉種類【'+TreeView1.Selected.Text+'】嗎?',mtInformation,[mbYes, mbNo],0)= mryes then

    begin

    ADOQuery2.Close;

    ADOQuery2.SQL.Clear;

    ADOQuery2.SQL.Text:='Delete  from Type where Name=:a';

    ADOQuery2.Parameters.ParamByName('a').Value:=TreeView1.Selected.Text;

    //ADOQuery2.Open;

    ADOQuery2.ExecSQL;

    Treeview1.Selected.Delete;

    end;

end;



procedure TForm1.N3Click(Sender: TObject);

begin

  with TreeView1 do

begin

  Items.BeginUpdate;

  Items.Clear;

  FillTreeView(TreeView1);

  Items.EndUpdate;

end;

end;

procedure TForm1.TTreeView1(Sender: TObject);

begin

  if TreeView1.Selected.Text='0001 電動車' then

     begin

      ADOQuery1.Close;

      ADOQuery1.SQL.Clear;

      ADOQuery1.SQL.Add('SELECT * FROM pro_electrombile');

      ADOQuery1.Prepared;

      ADOQuery1.Open;

     end;

  if TreeView1.Selected.Text='0002 四驅車' then

     begin

      ADOQuery1.Close;

      ADOQuery1.SQL.Clear;

      ADOQuery1.SQL.Add('SELECT * FROM pro_Signigobius_biocellatus');

      ADOQuery1.Prepared;

      ADOQuery1.Open;

     end;

end;



end.

uj5u.com熱心網友回復：

uj5u.com熱心網友回復：

uj5u.com熱心網友回復：

標籤：數據庫相關

上一篇：問個動態庫宣告的問題，C#宣告，轉成DELPHI宣告

下一篇：有償求助！