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]
