Eder

Kiko.......beleza....perdão cara...nem percebi.... Cara...agora pra fechar....... ta dando erro aqui no codigo abaixo: [Error] usuario.pas(54): Incompatible types: 'Integer' and 'PChar' procedure TForm22.appOnException(Sender: TObject; E: Exception); begin if (E is EDBENGINEERROR) then begin Application.MessageBox( 'Servidor está desligado bla bla bla'+#13+ 'Nome do seu Programa - Erro', MB_OK + MB_ICONERROR); end; end;

amigo....fiz o que você me indicou.........mas deu um errinho: parece que falta algo: [Error] usuario.pas(50): Undeclared identifier: 'EDBENGINERROR' O começo da unit ta abaixo, please, veja: unit usuario; interface uses Windows, Messages, dbiprocs, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, XiButton, XiPanel, StdCtrls, Db, DBTables, GestEdit, ComCtrls; type TForm22 = class(TForm) Label2: TLabel; XiPanel1: TXiPanel; XiButton1: TXiButton; XiButton2: TXiButton; Label1: TLabel; Edit1: TFilterAlignEdit; Edit2: TEdit; Timer1: TTimer; Label3: TLabel; XiPanel2: TXiPanel; Timer2: TTimer; procedure XiButton1Click(Sender: TObject); procedure XiButton2Click(Sender: TObject); procedure Edit2Exit(Sender: TObject); procedure FormKeyPress(Sender: TObject; var Key: Char); procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); procedure Timer1Timer(Sender: TObject); procedure Timer2Timer(Sender: TObject); procedure FormCreate(Sender: TObject); private procedure appOnException(Sender: TObject; E: Exception); //tratamento de erros { Private declarations } public { Public declarations } end; var Form22: TForm22; implementation uses Senha, principal; {$R *.DFM} procedure TForm22.appOnException(Sender: TObject; E: Exception); begin if (E is EDBENGINERROR) then begin Application.MessageBox( 'Servidor está desligado bla bla bla'+#13+ 'Nome do seu Programa - Erro', MB_OK + MB_ICONERROR); //enfim coloque o q tiver pra fazer aqui quando ocorrer este erro end; end;

amigo...Charc & Cia...como sou novato em delphi......ainda não tenho condições de migrar alguns programas para outro banco de dados...por enquanto tenho que me virar com o paradox....por isso.....teria que achar uma solução...mas...................vamos tentando.....hehehe....valeu....galera...

amigo....Charc.......eu trabalho com delphi4 ainda.....e nele não tem: o "ApplicationEvents" que fica na paleta Additional Você não conhece outra maneira????

Ola...pessoal.... tenho um programa que acessado pela rede....o problema que as vezes a maquina servidor esta desligada...IMPOSSIBILITANDO O ACESSO A BASE DE DADOS PARADOX, então o usuario da maquina de rede quer usar o programa...e ai ao clicar no programa da o erro: EXCEÇÃO EDBENGINERROR NO MODELU FATURA.EXE EM 00091AD2 INVALID FILE NAME teria como substituir esta mensagem acima....por uma outra...tipo: "O SERVIDOR ESTA DESLIGADO" ???? Grato

Olá....Galera... eu tenho que colocar um programa numa filial exatamente igual a que já tenho na matriz.....e agora tenho que transferir dados da filial para Matriz. Sei que na tela de lançamentos e tabela, tenho que cria um campo chamdo FILIAL, mas como transferir estes dados e atualizar na matriz ???? Acredito que seria mais um menos assim que ficaria a tabela PARADOX NA MATRIZ ======== filial data codlan 1 03/05/05 1 1 03/05/05 2 1 04/05/05 3 1 05/05/05 4 NA FILIAL ======= filial data codlan 2 03/05/05 1 2 03/05/05 2 2 05/05/05 3 2 05/05/05 4 depois de atualizado na Matriz parassaria a ficar assim: NA MATRIZ=DEPOIS DE ATUALIZADO ========================= filial data codlan 1 03/05/05 1 1 03/05/05 2 1 04/05/05 3 1 05/05/05 4 2 03/05/05 1 2 03/05/05 2 2 05/05/05 3 2 05/05/05 4 Mas .....não sei nem por onde começar...alguém poderia me ajudar....eu precisaria muito desta ajuda....pessoal..... :cansado: Sei que em programação é muito comum ter este tipo de situação.... Ficarei no aguardo de uma ajuda... Grato.

este componente por acaso é o PRTGRID ??? SE NÃO for pegue ele...ele manda alem de imprimir direto do grid...também exporta para excel...muito bom... segue abaixo o linck: PrtGrid LinckDownload Espero ter ajudado

valeu...Kiko....Grato..pela ajuda....t+

Kiko...beleza...cara...agora sim...funcionou como eu queria...... Cara....so mais uma dúvida..... Qual a diferença entre o DBMemo e o DBRichEdit ??? Grato

Kiko...ele só leva.....a primeira linha do DbMemo....as outras linhas ele não leva junto......!!!!

Kiko Na outra dúvida você pode usar a propriedade MaxLength =200 ou fazer no OnKeyPress um contador.... esta acima eu já resolvi...veja abaixo: procedure TFormCPen.DBMemo1Change(Sender: TObject); begin if Length(TCustomMemo(Sender).Text) > 198 then begin TCustomMemo(Sender).Text := Copy(TCustomMemo(Sender).Text, 1, 198); ShowMessage('O Limite máximo de Digitação é de 200 Caracteres!'); end; end; end. ===================== Por que você não usa um QRDBRichText ou um QRMemo para receber o seu campo MEMO ao invés de usar o QRlabel39? esta acima.....tentei usar.....mas não aparece nada no visualização do quick fiz acim... qrMemo1.caption:=DbMemo1.text; Poderias me passar um exemplo??? muito Grato

Pessoal....tenho 2 dúvidas com DBMemo.....porque eu nunca trabalhei com ele antes. 1-Eu mandei imprimir ele atraves deste codigo abaixo...mas o problema é que o dbmemo tem muito texto...e ele acaba fora do relatorio...então eu precisa que ele imprimisse como esta no memo.......ou seja.....se no dbmemo ele foi digitado 4 linhas de texto então eu gostaria que eu fosse pro Quickreport com 4 linhas também...ou que não ultrapassa a margem do relatorio, ou algo parecido o codigo é esse abaixo que estou usando: procedure TFormCPen.EncartaButton2Click(Sender: TObject); Begin With FormImpReg do Begin qrlabel3.caption:=EditCodigo.text; qrlabel4.caption:=dbdateedit3.text; qrlabel5.caption:=DbCombobox1.text; qrlabel19.caption:=DbCombobox4.text; qrlabel39.caption:=DbMemo1.text; QuickRep1.Preview; end; end; 2-a outra duvida é que eu programei para a tabela paradox no campo dbmemo tivesse ate 200 caracteres alphanumericos para ser digitado...então quando chegar a 200 caracteres aparessesse uma mensagem ao usuario dizendo que o limite de digitação acabou. muito Grato

Tem uns botões legais também....é o btncomps...de uma procurada na net....é free procure por: btncomps.zip Espero ter ajudado

amiga..aqui vai alguns links: http://delphi.icm.edu.pl/ http://www.geocities.com/marcellocaetano/main4.html http://www.3msoft.hpg.ig.com.br/comp.html http://sites.mpc.com.br/bellette/compon.htm http://www.conchal.dglnet.com.br/fabricio/paginas/d_comp.htm ESpero ter ajudado

Amigo...Via Bde: Paradox Painel de controle bde Click com o lado direito do mouse em cima de DataBase New Standart No Lado direito aponte ENABLE BCD = TRUE e o PATH=CAMINHO DO BANCO DE DADOS Renomeie o ALIAS para o nome desejável Salve o ALIAS...EXEMPLO: TKLFROTA Obs: O alias deve ser criado em todas as maquinas que vão trabalhar com o BD paradox, ou seja no servidor configure o PATH=C:\TKLFROTA OBS: Nas máquinas estação....coloque o PATH De acordo com o caminho da Rede EXEMPLO: PATH=X:\TKLFROTA Espero ter ajudado..

também não funcionou...já tentei... pessoal...já to ficando maluco...com este caso... Bom em fiz uns testes....e cheguei a uma conclusão... Meu servidor é WIN98se e tenho duas maquinas terminais com WINXP e uma com win98 na maquina terminal win98 não tenho nenhum problema....nas Winxp......não funciona(caso tenha alguma maquina winxp usando o programa) só funciona no winxp....se ninguém tiver acessando ai ele funcionar...ou caso o servidor win98se tiver com o programa aberto...ai todos as maquinas(winxp e win98 funcionam).... Portanto acredito que tem algum imcompatibilidade entre win98 e XP. acredito que win98 como servidor e maquina terminais xp....parecem que não funcionam corretamente.. Gostaria de um comentário de nossos colegas...se estou errado ou Certo.!!! Fico no aguardo

Pessoa...olha que estranho..... se eu entrar no programa nesta maquina que tem O problema.....e ninguém estiver usando na rede....ai entra e funciona normal agora se alguém tiver usando na rede.......ai ela não entra E da este erro abaixo: CODECANNOT ACESS DIRETÓRIO Agora vejam.....mais estranho ainda.... se o SERVIDOR estiver com o programa aberto...ai ela entra normalmente....alias ......ai todas as maquinas funcionam....o programa. O QUE PODE SER???

Ola...pessoal...Paradox via rede estou com um programa numa rede.... tenho o servidor e mais duas maquinas acessando o mesmo simultaneamente agora instalei uma terceira maquina.. O problema que esta terceira maquina...só consegue entrar se nenhuma outra maquina estiver acessando caso contrario...da erro no arquivo de acesso: PDOXUSRS.NET se não tiver ninguém acessando então esta maquina consegue entrar....mas as outras duas ai não conseguem mais..... Ou seja.....esta terceita maquina não aceita trabalhar em conjunto com as outras. O que pode estar errado???? Esta maquina tem winxp.....mas eu tenho outra que também é winxp....mas não da problema.... Grato

Kiko....Consegui com a ajuda de um amigo..ficou assim: Entre em project e options e selecione o form de login e coloque como available Agora no evento do oncreate do form principal você coloca o seguinte: Login:=tLogin.create(self); //aqui você cria o form manualmente... Login.Show; // chama ele na tela agora no form de login você coloca o teu código, mas antes coloque do SHOW login.release; Agora va em <Projects><View Source> e coloque Application.ShowMainForm:= FALSE; olhe o exemplo como fica abaixo: Application.Initialize; Splash:= tsplash.create(application); Splash.show; Splash.refresh; Sleep(800); Application.ShowMainForm:= FALSE; funcionou legal.... Valeu...galera..Grato a todos...

Perdão Kiko.....eu coloquei incorretamente......ai não deu mais o erro seria assim: procedure TForm1.FormShow(Sender: TObject); begin Form22:= TForm22.Create(self); Form22.ShowModal; Form22.Release; end; Mas agora Kiko...da outro erro: Erro: Não é possivel marcar uma janela visivel como Modal

Kiko...fiz o que me mandou: procedure TForm1.FormShow(Sender: TObject); begin Form22:= TForm.Create(self); Form22.ShowModal; Form22.Release; end; mas da este erro: [Error] principal.pas(661): Incompatible types: 'TForm22' and 'TForm'

explicando melhor...eu coloquei assim: (classe do form)Tform22:= form22.create(self); form22.showmodal; form22.release; ai deu o erro conforme citei acima. Será que fiz algo de errado??

colega......deu um errinho......veja abaixo: [Error] principal.pas(661): Undeclared identifier: 'classe'

amigo...ve se isto de ajuda...retirei do DtDelphi 2,7 Não testei.. 813 - Imprimir Na Vertical No Quickreport -------------------------------------------------------------------------------- procedure ImprimirNaVertical(AQuick: TQuickRep; ABanda: TQrBand; ATexto: string); var lf: TLogFont; tf: TFont; xQrImage: TQrImage; begin xQrImage := TQrImage.Create(AQuick); xQrImage.Parent := ABanda; xQrImage.Align := alLeft; xQrImage.Width := 10; xQrImage.BringToFront; with xQrImage.Canvas do begin Font.Name := 'Arial'; Font.Size := 7; tf := TFont.Create; tf.Assign(Font); GetObject(tf.Handle, Sizeof(lf), @lf); lf.lfEscapement := 900; lf.lfOrientation := 450; tf.Handle := CreateFontIndirect(lf); Font.Assign(tf); tf.Free; TextOut(0, xQrImage.Height div 2, ATexto); end; end; -------------------------------------------------------------------------------- Enviada por: Adriano Santos Um colaborador da DTDelphi 2.7 Colabore você com a próxima edição! Espero ter ajudado....

Anelise...eu este codigo abaixo a algum tempo sem problemas..em varios aplicativos.....é claro que uso Outlook express.... Haaaaaaaa....e não pode ser versão do Outlook express inferior a 6.00 Tive problemas com versão anterior...e por isso tive que atualizar. unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Mapi, StdCtrls, Buttons; type TForm1 = class(TForm) BitBtn1: TBitBtn; procedure BitBtn1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} function SendEMail(Handle: THandle; Mail: TStrings): Cardinal; type TAttachAccessArray = array [0..0] of TMapiFileDesc; PAttachAccessArray = ^TAttachAccessArray; var MapiMessage: TMapiMessage; Receip: TMapiRecipDesc; Attachments: PAttachAccessArray; AttachCount: Integer; i1: integer; FileName: string; dwRet: Cardinal; MAPI_Session: Cardinal; WndList: Pointer; begin dwRet := MapiLogon(Handle, PChar(''), PChar(''), MAPI_LOGON_UI or MAPI_NEW_SESSION, 0, @MAPI_Session); if (dwRet <> SUCCESS_SUCCESS) then begin MessageBox(Handle, PChar('Error while trying to send email'), PChar('Error'), MB_ICONERROR or MB_OK); end else begin FillChar(MapiMessage, SizeOf(MapiMessage), #0); Attachments := nil; FillChar(Receip, SizeOf(Receip), #0); if Mail.Values['to'] <> '' then begin Receip.ulReserved := 0; Receip.ulRecipClass := MAPI_TO; Receip.lpszName := StrNew(PChar(Mail.Values['to'])); Receip.lpszAddress := StrNew(PChar('SMTP:' + Mail.Values['to'])); Receip.ulEIDSize := 0; MapiMessage.nRecipCount := 1; MapiMessage.lpRecips := @Receip; end; AttachCount := 0; for i1 := 0 to MaxInt do begin if Mail.Values['attachment' + IntToStr(i1)] = '' then break; Inc(AttachCount); end; if AttachCount > 0 then begin GetMem(Attachments, SizeOf(TMapiFileDesc) * AttachCount); for i1 := 0 to AttachCount - 1 do begin FileName := Mail.Values['attachment' + IntToStr(i1)]; Attachments[i1].ulReserved := 0; Attachments[i1].flFlags := 0; Attachments[i1].nPosition := ULONG($FFFFFFFF); Attachments[i1].lpszPathName := StrNew(PChar(FileName)); Attachments[i1].lpszFileName := StrNew(PChar(ExtractFileName(FileName))); Attachments[i1].lpFileType := nil; end; MapiMessage.nFileCount := AttachCount; MapiMessage.lpFiles := @Attachments^; end; if Mail.Values['subject'] <> '' then MapiMessage.lpszSubject := StrNew(PChar(Mail.Values['subject'])); if Mail.Values['body'] <> '' then MapiMessage.lpszNoteText := StrNew(PChar(Mail.Values['body'])); WndList := DisableTaskWindows(0); try Result := MapiSendMail(MAPI_Session, Handle, MapiMessage, MAPI_DIALOG, 0); finally EnableTaskWindows( WndList ); end; for i1 := 0 to AttachCount - 1 do begin StrDispose(Attachments[i1].lpszPathName); StrDispose(Attachments[i1].lpszFileName); end; if Assigned(MapiMessage.lpszSubject) then StrDispose(MapiMessage.lpszSubject); if Assigned(MapiMessage.lpszNoteText) then StrDispose(MapiMessage.lpszNoteText); if Assigned(Receip.lpszAddress) then StrDispose(Receip.lpszAddress); if Assigned(Receip.lpszName) then StrDispose(Receip.lpszName); MapiLogOff(MAPI_Session, Handle, 0, 0); end; end; procedure TForm1.BitBtn1Click(Sender: TObject); var mail: TStringList; begin mail := TStringList.Create; try mail.values['to'] := 'annelise.soares@gmail.com'; ///AQUI VAI O EMAIL DO DESTINATARIO/// mail.values['subject'] := 'Hello'; ///AQUI O ASSUNTO/// mail.values['body'] := 'blah'; ///AQUI O TEXTO NO CORPO DO EMAIL/// mail.values['attachment0'] := 'C:\Test.txt'; ////AQUI O ENDEREÇO ONDE ENCONTRAM OS ARQUIVOS// mail.values['attachment1']:='C:\Test2.txt'; ///IDEM - NO ATTACHMENT1 TEM QUE COLOCAR A SEQUNCIA DO EMAIL A QUAL DESEJA ENVIAR EXEMPLO: ATTACHMENT1 sendEMail(Application.Handle, mail); finally mail.Free; end; end; end.