Bom dia! a DLL deve ficar no diretório onde o programa foi compilado. Atenciosamente Fernando de Simas [EMAIL PROTECTED] Itajaí - SC - Brasil
To: [EMAIL PROTECTED]: [EMAIL PROTECTED]: Tue, 25 Sep 2007 12:24:19 +0000Subject: [delphi-br] Dúvida - sistema de Impressão de cheques ! Bom diaSou assinante da Clube delphi e estou tentando fazer o sistema de impressão de cheque, matéria do Adriano Santos, na edição 88 - mais está me gerando erro ao compilar justamente nas funções que declarei. Tenho as seguintes dúvidas:As declarações de function são feitas em cada unit de cada tela ou e feita na unit da tela principal?A declaração da variável e feita apenas na tela principal?Coloquei a DLL na unidade C:\Windows, e necessário ter uma outra junto aos fontes do sistema?Segue o meu código para que possa se possível me ajudar.Atenciosamenteunit uPrincipal;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, ComCtrls, ExtCtrls, Menus, ImgList, Buttons, ToolWin, StdCtrls,DB, DBTables;typeTfrmPrincipal = class(TForm)LinhaStatus: TStatusBar;MainMenu1: TMainMenu;Cadastros1: TMenuItem;Produtos1: TMenuItem;Unidades1: TMenuItem; N1: TMenuItem;Funci1: TMenuItem;Departamentos1: TMenuItem;N2: TMenuItem;Ajuda1: TMenuItem;Sobre1: TMenuItem;Timer1: TTimer;P_Botoes: TPanel;spbImprimir: TSpeedButton;spbExcluirBanco: TSpeedButton;spbNovoBanco: TSpeedButton;spbPortas: TSpeedButton;spbFechar: TSpeedButton;Panel1: TPanel;Database1: TDatabase;N7: TMenuItem;Sair1: TMenuItem;Label1: TLabel;Label2: TLabel;Label3: TLabel;Label4: TLabel;Label5: TLabel;Label53: TLabel;Label6: TLabel;//função para abri a porta de comunicaçãofunction Bematech_DP_IniciaPorta(Porta:string):integer; stdcall; far; external 'BemaDP32.dll';//função para fechar a porta de comunicaçãofunction Bematech_DP_FechaPorta:integer;stdcall;far;external'BemaDP32.dll';//função para imprimir o chequefunction Bematech_DP_ImprimeCheque(Banco: string;Valor:string; Favorecido:string; Cidade:string; Data:string; Mensagem:string):integer; stdcall; far; external'BemaDP32.dll';//função para incluir e alterar o banco e suas//coordenadas no arquivo bemadp32.inifunction Bematech_DP_IncluiAlteraBanco(Banco:string; Coordenadas:String):integer; stdcall;far;external 'BemaDP32.dll';//função para incluir um banco do arquivo bemadp.inifunction Bematech_DP_ExcluiBanco(Banco:string):integer; stdcall; far; external 'BemaDP32.dll';procedure Timer1Timer(Sender: TObject);procedure spbFecharClick(Sender: TObject);procedure FormClose(Sender: TObject; var Action: TCloseAction);procedure N2Click(Sender: TObject);procedure spbPortasClick(Sender: TObject);procedure spbExcluirBancoClick(Sender: TObject);procedure spbNovoBancoClick(Sender: TObject);procedure Funci1Click(Sender: TObject);procedure N1Click(Sender: TObject);procedure spbImprimirClick(Sender: TObject);procedure Produtos1Click(Sender: TObject);procedure Sair1Click(Sender: TObject);private{ Private declarations }public{ Public declarations }end;varfrmPrincipal: TfrmPrincipal;//variavel que recebe o retorno das funçõesRetorno: Integer;implementationuses uPortas, uExcluirBanco, uConfiguraBanco, uImprimir; _________________________________________________________________ Receba GRÁTIS as mensagens do Messenger no seu celular quando você estiver offline. Conheça o MSN Mobile! http://mobile.live.com/signup/signup2.aspx?lc=pt-br [As partes desta mensagem que não continham texto foram removidas]