[delphi-br] Conectar Firebird pela Internet
Bom dia pessoal, pode ser que já responderam esta questão aqui no forum, mas não achei nada, preciso conectar uma aplicação em delphi com banco de dados firebird 1.5, pela internet. Por exemplo tenho um computador em um escritório com o meu banco de dados, preciso acessar este banco de dados de um outro local via net, como faço ? Tentei colocar no TIBDatabase, o database name o IP da máquina servidora, 192.1.1.1:c:\teste\teste.fdb Mas não funcionaou, alguém pode me ajudar ! Obrigado.
[delphi-br] Re: Como alterar propriedades de um atalho???
para recriar o atalho:
//- retirado de Ramos da Informática
implementation
uses ShlObj, ActiveX, ComObj;
{$R *.dfm}
procedure CriaShortCut(aNome, aFileName: string; aLocation: integer);
var
IObject : IUnknown;
ISLink : IShellLink;
IPFile : IPersistFile;
PIDL : PItemIDList;
InFolder : array[0..MAX_PATH] of Char;
TargetName : String;
LinkName,s : WideString;
begin
TargetName := aFileName;
IObject := CreateComObject(CLSID_ShellLink);
ISLink := IObject as IShellLink;
IPFile := IObject as IPersistFile;
with ISLink do
begin
SetPath(pChar(TargetName));
SetWorkingDirectory(pChar(ExtractFilePath
(TargetName)));
end;
SHGetSpecialFolderLocation
(0, aLocation, PIDL);
SHGetPathFromIDList(PIDL, InFolder);
s := InFolder;
LinkName := s + '\' + aNome + '.LNK';
if FileExists(LinkName) then
ShowMessage('Atalho já existe!')
else
IPFile.Save(PWChar(LinkName), false);
end;
// Para utilizar:
CriaShortCut('Calculadora', 'c:\windows\system32\calc.exe', CSIDL_DESKTOP);
//-
--- Em delphi-br@yahoogrupos.com.br, snakesjb robsontazina...@... escreveu
Como alterar propriedades de um atalho???
Preciso alterar a propriedade destino de um atalho do menu iniciar, alguem
sabe como
Re: [delphi-br] Conectar Firebird pela Internet
Olha, antes de qualquer coisa, voce deve pensar na segurança da sua aplicação pois, a WEB hoje é um meio pouco seguro. Aqui na Telemont, quando fazemos este tipo de procedimento (Acessar o banco de dados de fora da empresa), nós o fazemos Via VPN. Nunca via rede aberta. []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br http://delphitocorporerm.blogspot.com/ http://twitter.com/wchagas MSN: whitesock...@hotmail.com SKYPE: WalterChagasJr - Original Message - From: voodoorv To: delphi-br@yahoogrupos.com.br Sent: Monday, January 25, 2010 8:05 AM Subject: [delphi-br] Conectar Firebird pela Internet Bom dia pessoal, pode ser que já responderam esta questão aqui no forum, mas não achei nada, preciso conectar uma aplicação em delphi com banco de dados firebird 1.5, pela internet. Por exemplo tenho um computador em um escritório com o meu banco de dados, preciso acessar este banco de dados de um outro local via net, como faço ? Tentei colocar no TIBDatabase, o database name o IP da máquina servidora, 192.1.1.1:c:\teste\teste.fdb Mas não funcionaou, alguém pode me ajudar ! Obrigado. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Conectar Firebird pela Internet
Voodoorv, Voce precisa informar o IP EXTERNO da máquina servidora. Caso no local aonde esta o servidor não tenha IP FIXO, use um cliente dinâmico de IP, por exemplo o NO-IP (www.no-ip.com). Veja como configurar o NO-IP aqui (http://videolog.uol.com.br/video.php?id=396589) Depois basta conectar: Com IP FIXO: 200.123.123.123:c:\teste\teste.fdb Com NO-IP: meunoipdetestes.no-ip.info:c:\teste\teste.fdb Não esqueça de liberar a porta do Firebird no firewall do servidor e nas regras de NAT (ou Port Forwarding) de seu modem. Sucesso !! Moacir Ex.: Em 25/01/2010 08:05, voodoorv escreveu: Bom dia pessoal, pode ser que já responderam esta questão aqui no forum, mas não achei nada, preciso conectar uma aplicação em delphi com banco de dados firebird 1.5, pela internet. Por exemplo tenho um computador em um escritório com o meu banco de dados, preciso acessar este banco de dados de um outro local via net, como faço ? Tentei colocar no TIBDatabase, o database name o IP da máquina servidora, 192.1.1.1:c:\teste\teste.fdb Mas não funcionaou, alguém pode me ajudar ! Obrigado.
RE: [delphi-br] Conectar Firebird pela Internet
Se a máquina servidora (firebird) for windows tem que liberar a porta 3050 no firewall (painel de controle). Aldriano. To: delphi-br@yahoogrupos.com.br From: voodo...@uol.com.br Date: Mon, 25 Jan 2010 10:05:19 + Subject: [delphi-br] Conectar Firebird pela Internet Bom dia pessoal, pode ser que já responderam esta questão aqui no forum, mas não achei nada, preciso conectar uma aplicação em delphi com banco de dados firebird 1.5, pela internet. Por exemplo tenho um computador em um escritório com o meu banco de dados, preciso acessar este banco de dados de um outro local via net, como faço ? Tentei colocar no TIBDatabase, o database name o IP da máquina servidora, 192.1.1.1:c:\teste\teste.fdb Mas não funcionaou, alguém pode me ajudar ! Obrigado. _ Deixe seu computador compatível com a sua vida. Clique para conhecer o Windows 7! http://www.microsoft.com/brasil/windows7/default.html?WT.mc_id=1539 [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: delphi-br-ow...@yahoogrupos.com.br 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: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Programa compilado no Windows 7 está lento
Bom dia a todos! Estou utilizando o Delphi 6 no Windows 7, e quando rodo o programa (F9) ele executa alguns processos simples muito lentamente. Somente ao rodar o executável por fora do Delphi é que ele funciona normal. Alguém já teve algum problema parecido ou sabe o motivo?? Abraço!
RES: [delphi-br] OFF... NAT
http://www.guiadohardware.net/comunidade/500g-dlink/177897/ Não uso DLink, mas nunca tive problemas com o singleclick. Quando estiver em outra máquina, é só ajustar o nat e pronto. -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Fernando Bueno Enviada em: sexta-feira, 22 de janeiro de 2010 08:19 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] OFF... NAT Bom dia ! Cara quando não preciso transferir arquivos uso o CrossLoop e quando preciso mando via ftp é assim que tenho feito porque tem varios modelos de modem e tem alguns que se ressetam ai tem que configurar tudo denovo. Um abraço. 2010/1/21 Régis Bender regis...@terra.com.br Boa tarde, estou com um problema pra acertar minha conexão remota. Estou usando o ultra vnc(single click), ai eu configurei pro endereço regissk8.no-ip.org:15000, mas tenho que configurar a NAT do meu roteador e não estou conseguindo. Utilizo o Dlink 500g II. Alguém utiliza este mesmo programa e poderia me ajudar a criar essas regras? sds Bender Desenvolvimento de Sistemas e Serviços Contábeis (Régis) (51) 98470699 Novo Hamburgo/RS MSN: regis...@terra.com.br regissk8%40terra.com.br ''A vida é um milhão de novos começos movidos pelo desafio sempre novo de viver e fazer todo sonho brilhar! [As partes desta mensagem que não continham texto foram removidas] -- Fernando P. Bueno.'. 54 8145 6625 Caxias do Sul - RS - Brasil Oh! Quão bom e quão suave é que os irmãos vivam em união ..! (Salmos 133:1). [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Re: [delphi-br] Apostila BD
Bom dia... Este site lhe ajudará e muito... http://www.firebase.com.br/fb/ Att. Ricardo. --- Em sex, 22/1/10, Dirceu dirceusalo...@yahoo.com.br escreveu: De: Dirceu dirceusalo...@yahoo.com.br Assunto: [delphi-br] Apostila BD Para: delphi-br@yahoogrupos.com.br Data: Sexta-feira, 22 de Janeiro de 2010, 16:29 Alguém aqui pode me indicar (ou enviar) uma boa apostila sobre banco de dados, falando sobre chave estrangeira, relacionamentos (com exemplos) e, de preferência, sobre o Firebird? Agradeço! [As partes desta mensagem que não continham texto foram removidas] Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Componente SuperBina
Olá amigos, Alguém conseguiu colocar para funcionar o componente SuperBina ? Estou com problemas sérios e já troquei 3 placas de fax/modem para tentar colocar para funcionar e nada. Gostaria de saber se alguém usou, abandonou ou adotou algum solução para ID Chamadas com o componente. Abraços. *Segue abaixo a consulta do meu último modem que está funcionando super bem. * ATQ0V1E0 - OK AT+GMM - +GMM: PCI Soft Voice SoftRing Modem AT+FCLASS=? - 0,1,8,80 AT#CLS=? - COMANDO SEM SUPORTE AT+GCI? - +GCI: 16 AT+GCI=? - +GCI: (00,01,02,03,04,05,06,07,09,0A,0B,0C,0D,0E,0F,10,11,12,13,14,15,16,19,1A,1B,1C,1D,1E,1F,20,21,22,23,24,25,26,27,28,29,2A,2B,2C,2D,2E,2F,30,31,32,33,34,35,36,37,38,39,3A,3B,3C,3D,3E,40,41,43,44,45,46,47,48,49,4B,4C,4D,4E,4F,50,51,52,53,54,55,56,57,58,59,5A,5B,5C,5E,5F,60,61,62,63,64,65,66,67,68,69,6A,6B,6C,6D,6E,6F,70,71,72,73,74,75,76,77,78,79,7A,7B,7C,7D,7E,7F,80,81,82,83,84,85,86,87,88,89,8A,8B,8C,8D,8E,8F,90,92,93,94,96,97,98,99,9A,9B,9C,9D,9E,9F,A0,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD,AE,AF,B0,B1,B2,B3,B4,B5,B6,B7,B8,B9,BA,BB,BC,BD,BE,BF,C1,C2,C3,C4,C5,C7,C8,C9,CA,CB,CC,CD,CE,CF,D0,D1,D2,D3,D4,D5,D6,D7,D8,D9,DA,DB,DC,DD,DE,DF,E0,E1,E2,E3,E4,E5,E6,E7,E8,EB,EC,ED,EE,EF,F0,F1,F2,F3,F4,F5,F7,F8,F9,FA,FB,FC,FE) ATI1 - 255 ATI2 - OK ATI3 - SoftK56V_B2.1_V7.60.00 ATI4 - PCI Soft Voice SoftRing Modem ATI5 - 022 ATI6 - SoftK56 CModem Version 12 Rksample Version 342 ATI7 - 255 Jorge Ericsson Brasília - DF [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Componente SuperBina
Até onde eu me lembro (e isso fazem alguns ANOS) vc tinha que ter um modem de marca pra conseguir o SuperBina funfando legal. Indicavam até os modens da USRobotics como os que davam melhor resultado. Hj em dia nem sei mais se a informação procede. Atte, Ricardo. 1) Evite escrever suas mensagens usando somente LETRAS MAIÚSCULAS. 2) Revise o texto de sua mensagem. Uma mensagem bem escrita é melhor compreendida. 3) Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante! --- Em seg, 25/1/10, Jorge Ericsson jericsson...@gmail.com escreveu: De: Jorge Ericsson jericsson...@gmail.com Assunto: [delphi-br] Componente SuperBina Para: Data: Segunda-feira, 25 de Janeiro de 2010, 13:03 Olá amigos, Alguém conseguiu colocar para funcionar o componente SuperBina ? Estou com problemas sérios e já troquei 3 placas de fax/modem para tentar colocar para funcionar e nada. Gostaria de saber se alguém usou, abandonou ou adotou algum solução para ID Chamadas com o componente. Abraços. *Segue abaixo a consulta do meu último modem que está funcionando super bem. * ATQ0V1E0 - OK AT+GMM - +GMM: PCI Soft Voice SoftRing Modem AT+FCLASS=? - 0,1,8,80 AT#CLS=? - COMANDO SEM SUPORTE AT+GCI? - +GCI: 16 AT+GCI=? - +GCI: (00,01,02,03, 04,05,06, 07,09,0A, 0B,0C,0D, 0E,0F,10, 11,12,13, 14,15,16, 19,1A,1B, 1C,1D,1E, 1F,20,21, 22,23,24, 25,26,27, 28,29,2A, 2B,2C,2D, 2E,2F,30, 31,32,33, 34,35,36, 37,38,39, 3A,3B,3C, 3D,3E,40, 41,43,44, 45,46,47, 48,49,4B, 4C,4D,4E, 4F,50,51, 52,53,54, 55,56,57, 58,59,5A, 5B,5C,5E, 5F,60,61, 62,63,64, 65,66,67, 68,69,6A, 6B,6C,6D, 6E,6F,70, 71,72,73, 74,75,76, 77,78,79, 7A,7B,7C, 7D,7E,7F, 80,81,82, 83,84,85, 86,87,88, 89,8A,8B, 8C,8D,8E, 8F,90,92, 93,94,96, 97,98,99, 9A,9B,9C, 9D,9E,9F, A0,A1,A2, A3,A4,A5, A6,A7,A8, A9,AA,AB, AC,AD,AE, AF,B0,B1, B2,B3,B4, B5,B6,B7, B8,B9,BA, BB,BC,BD, BE,BF,C1, C2,C3,C4, C5,C7,C8, C9,CA,CB, CC,CD,CE, CF,D0,D1, D2,D3,D4, D5,D6,D7, D8,D9,DA, DB,DC,DD, DE,DF,E0, E1,E2,E3, E4,E5,E6, E7,E8,EB, EC,ED,EE, EF,F0,F1, F2,F3,F4, F5,F7,F8, F9,FA,FB, FC,FE) ATI1 - 255 ATI2 - OK ATI3 - SoftK56V_B2. 1_V7.60.00 ATI4 - PCI Soft Voice SoftRing Modem ATI5 - 022 ATI6 - SoftK56 CModem Version 12 Rksample Version 342 ATI7 - 255 Jorge Ericsson Brasília - DF [As partes desta mensagem que não continham texto foram removidas] Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] C++ Builder e Delphi 2010, qual a vantagem de se usar o C++ Builder?
Amigos, Tenho um sistema em C++ Builder, o qual iremos refaze-lo por completo, pois está muito antigo e com muitas amarrações de muitos programadores. Já temos sistemas em Delphi.. Então, pelo que andei lendo e vendo ultimamente, a diferença entre o Delphi e o C++ Builder, só foram diminuindo, até chegar ao ponto de a única diferença ser a linguagem.. é isso mesmo? O C++ ainda é superior que o Delphi? Em quais quesitos? Vale a pena investir no C++ Builder, ou no Delphi? Att.
Re: [delphi-br] Conectar Firebird pela Internet
para conectar remotamente com firebird vc precisa do ip válido do servidor, exemplo: 200.251.200.10:/teste/teste.fdb se vc não tiver o ip válido, então pode usar um recurso como o no-ip: meuservidor.no-ip.info:/teste/teste.fdb no modem do servidor deve estar liberado as portas que serão utilizadas, fazendo direcionamento para o micro servidor da rede interna.(com ip inválido, exemplo:192.168.1.220) outra forma mais eficiente é usar o zebedee para acelerar a circulação dos dados. sds marcelo luiz stefaniak - Original Message - From: voodoorv To: delphi-br@yahoogrupos.com.br Sent: Monday, January 25, 2010 8:05 AM Subject: [delphi-br] Conectar Firebird pela Internet Bom dia pessoal, pode ser que já responderam esta questão aqui no forum, mas não achei nada, preciso conectar uma aplicação em delphi com banco de dados firebird 1.5, pela internet. Por exemplo tenho um computador em um escritório com o meu banco de dados, preciso acessar este banco de dados de um outro local via net, como faço ? Tentei colocar no TIBDatabase, o database name o IP da máquina servidora, 192.1.1.1:c:\teste\teste.fdb Mas não funcionaou, alguém pode me ajudar ! Obrigado. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Evento OnPrint não executa (QuickReport)
Olá! Intrigante o problema que estou passando. Tenho campos QRDBText dentro de um QRSubDetail. Todos os campos disparam o seu respectivo evento OnPrint, mas o último não dispara. Alguém sabe por que e como posso resolver? Grato, Jonatã.
[delphi-br] Perda de Herança no Formulário
Boa Tarde, usando Delphi 7; tenho um formulário que não obedece mais as mudanças no Form Original do qual ele foi herdado; recriei e compilei o projeto e nada, alguém tem uma luz ? grato Stainle
Re: [delphi-br] Perda de Herança no Formulário
De quais mudanças no Form original vc está falando? Se for, por exemplo, a posição (Left, Top) de um botão: Se vc alterar a posição do botão no Form original, o filho irá receber a alteração SOMENTE se o filho ainda não tiver alterado o seu próprio botão (Left, Top). Se quiser que as alterações do pai ou original, como vc chamou-o, então vc deve apagar as configurações do botão que fica no arquivo .DFM do filho. Marcos Douglas 2010/1/25 stainle2003 stainle2...@yahoo.com.br Boa Tarde, usando Delphi 7; tenho um formulário que não obedece mais as mudanças no Form Original do qual ele foi herdado; recriei e compilei o projeto e nada, alguém tem uma luz ? grato Stainle -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Programador Delphi - Joinville SC
Estamos contratando programadores delphi (junior à pleno). Interessados enviar Curriculum com pretensão salarial e disponibilidade para início. Nossa empresa: www.insightsystem.com.br Att, Jhosef Marks de Carvalho Blog: http://www.jhosefmarks.com.br Jesus está voltando E se o meu povo, que se chama pelo meu nome, se humilhar, e orar, e buscar a minha face e se converter dos seus maus caminhos, então eu ouvirei dos céus, e perdoarei os seus pecados, e sararei a sua terra. (2 Cr 7:14) Sent from Joinville, Santa Catarina, Brasil [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Vaga programador Delphi para projeto NFe e PAF-ECF e Analista de suporte - Vit�ria/ES
Interessados contactar pessoa abaixo: Laysa C. S Andrade Allware Software Ltda AWS Software Ltda la...@allware.com.br www.allware.com.br (27) 2123-0020 / 9932-0727 -- Jackson
[delphi-br] Re: Evento OnPrint não executa (QuickReport)
Você usou CTRL+C CTRL+V? Tenta apagar todo o código do evento, salvar, acessar novamente o evento e fazer a programação. Luciano C. Simões --- Em delphi-br@yahoogrupos.com.br, Jonata jon...@... escreveu Olá! Intrigante o problema que estou passando. Tenho campos QRDBText dentro de um QRSubDetail. Todos os campos disparam o seu respectivo evento OnPrint, mas o último não dispara. Alguém sabe por que e como posso resolver? Grato, Jonatã.
[delphi-br] Re: Perda de Herança no Formulário
- Confirmou se na declaração da classe do form descendente está a classe ancestral correta? type TFrmCadastro = class(TFrmBasico) - Você alterou a classe ancrestal na mão? Isso costuma dar problemas. Luciano C. Simões --- Em delphi-br@yahoogrupos.com.br, stainle2003 stainle2...@... escreveu Boa Tarde, usando Delphi 7; tenho um formulário que não obedece mais as mudanças no Form Original do qual ele foi herdado; recriei e compilei o projeto e nada, alguém tem uma luz ? grato Stainle
Re: [delphi-br] Re: Perda de Herança no For mulário
Vá até o formulário, clique com o direito e View As Text com isso vai editar o .dfm... remova todos os inherited que acha que estão atrapalhando... Pressione Ctrl + F12 compile e responda oq aconteceu... Vlw!
RE: [delphi-br] Instalar Delphi 2010
Basta voce registrar sua cópia, se você adquiriu o Delphi ou pegou um trial. Em ambos os casos você recebe no email o serial para utilizar. Basta utilizar o serial juntamento com seu email para registrar sua cópia. From: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] On Behalf Of aoliveira_sys Sent: sábado, 23 de janeiro de 2010 18:38 To: delphi-br@yahoogrupos.com.br Subject: [delphi-br] Instalar Delphi 2010 Instalei o Delphi 2010, a instalação ocorreu tudo certo, mas quando inicio o Delphi aparece a tela de registrar produto da Embarcadero. Ai baixe o Delphi Distiller 1.82 3 1.85, quando inicio ambos dá a seguinte mensagem You must run all your Delphi installations at least once before using this program. (If you need to run Delphi 2010, it is recommended to disconnect from the network to prevent it from calling home). Já tentei de tudo e não obtive sucesso. PS: Possuo windows xp, quando fiz o mesmo processo no windows 7 funcionou, estou com problema no windows 7. Click here https://www.mailcontroller.altohiway.com/sr/3XjWZTb8FC7TndxI!oX7UrDv!jL6nhygqf0E2xdNLlWR7fOf54FUDBXs03+iYjylP007dwXSf91hjvXYAQ53ow== to report this email as spam. This message has been scanned for viruses by MailController http://www.MailController.altohiway.com/ . [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Problemas com ProviderFlags
Salve Eduardo. Olhe meu vídeo do FDD 2008 que está no meu link de downloads que poderá te ajudar. HTTP://cc.embarcadero.com/author/795118 Abraços, Bruno From: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] On Behalf Of Eduardo Melo Sent: quinta-feira, 21 de janeiro de 2010 17:20 To: delphi-br@yahoogrupos.com.br Subject: [delphi-br] Problemas com ProviderFlags Ola Pessoal, Estou com problemas para consulta entre duas tabelas mesmo utilizando o ProviderFlags estou realizando uma consulta da seguinte maneira: dm.cdsReceber.Close; dm.cdsReceber.CommandText:='Select a.*, b.CLIENTE, b.COD from RECEBER a, CAD_CLIENTE b where a.COD_CLIENTE = b.COD and b.CLIENTE like'+QuotedStr(texto_pesquisa.Text+'%')+ 'and (a.SITUACAO = '+'''A RECEBER'''+ 'or a.SITUACAO = '+'''RECEBIMENTO PARCIAL'')'; dm.cdsReceber.Open; os flags estao setadas corretamente, como o do Provider o UpdateMode upWhereKeyOnly e os dos campos chaves pfInUpdate,pfInWhere,pfInKey e os campos normais somente pfInUpdate; eu uso uma sqldataset um datasetprovider, clientdataset, usando a opção de do clientdataset allowcommandtext. Mas toda vez me retorna o erro Nenhuma chave foi especificada. Estranho que em outra tabela que trabalha da mesma maneira funcionou e essa nao. O que pode ser? -- Atenciosamente Eduardo Melo www.meloshospedagem.com.br Porque Deus amou o mundo de tal maneira que deu o seu Filho unigênito, para que todo aquele que nele crê não pereça, mas tenha a vida eterna. (João 3:16) -- Atenciosamente Eduardo Melo 4º Sistemas de Informação - Bacharelado www.meloshospedagem.com.br Porque Deus amou o mundo de tal maneira que deu o seu Filho unigênito, para que todo aquele que nele crê não pereça, mas tenha a vida eterna. (João 3:16) [As partes desta mensagem que não continham texto foram removidas] Click here https://www.mailcontroller.altohiway.com/sr/oojRd4V3a!bTndxI!oX7UnF1h4o+NsfXpJynemcjTZ07m7yWeUjSu8g9ErZRenzwF8c6GpVliyrieLvRJKIvyA== to report this email as spam. This message has been scanned for viruses by MailController http://www.MailController.altohiway.com/ . [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Erro ao passar valores de um Form para outro
Pessoal, boa noite. Eu estou um sistema MDI, no qual tenho um formulário principal (Form Pai) e os demais estão como Forms filhos. O meu problema é o seguinte: Eu criei um form Filho de cadastro de produtos e dentro dele eu chamo um outro form filho que consulta os produtos cadastrados, porém eu também uso esse Form de consulta para jogar de volta uma linha do registro do DbGrid para o formulário de cadastro, assim podendo realizar a alteração desse registro (qdo eu dou um duplo-clique em cima do registro). Dentro do form de Cadastro de Produtos eu usei o seguinte código para chamar o Form de consulta: Application.CreateForm(TFrmConProduto, FrmConProduto); Dentro do DbGrid desse form de consulta eu utilizei o seguinte código para trazer as informações para o outro Form (Cadastro): procedure TFrmConProduto.DBGrid1DblClick(Sender: TObject); var Cd_Produto: string; Ds_Produto: string; Qtd_Produto: string; Vl_Unit_Produto: string; Vl_Total_Produto: string; X: Integer; begin with DBGrid1.DataSource.DataSet do for X := 0 to FieldCount - 1 do begin case X of 0: Cd_Produto := Fields[X].AsString; 1: Ds_Produto := Fields[X].AsString; 2: Qtd_Produto := Fields[X].AsString; 3: Vl_Unit_Produto := Fields[X].AsString; 4: Vl_Total_Produto := Fields[X].AsString; end; FrmCadProduto.EdtCodigo.Text := Cd_Produto; FrmCadProduto.EdtProduto.Text := Ds_Produto; FrmCadProduto.EdtQdt.Text := Qtd_Produto; FrmCadProduto.EdtValorUnit.Text := Vl_Unit_Produto; FrmCadProduto.EdtValorTotal.Text := Vl_Total_Produto; end; FrmCadProduto.HabilitaDesabilita(2); FrmConProduto.Close; end; O erro está acontecendo quando eu tendo passar os valores das variáveis para os Edits do outro Form (que fica aberto mesmo com o Form Consulta aberto). Ele apresenta um erro de Access Violation e eu notei que ele não consegue encontrar as informações do Form Cadastro mesmo ele estando aberto e adicionado na Unit. Eu já utilizei esse código com Sistemas que não estão em MDI e funcionaram corretamente. Alguém sabe o que está acontecendo? Ou tem alguma solução diferente para trabalhar com forms MDI? Obrigado. Abraços. Att. Ricardo Ravelli. [As partes desta mensagem que não continham texto foram removidas]
