Re: [delphi-br] Backup Restore
Como é que vc tá usando o gbak? Veja esse exemplo, pode ser que ajude: gbak.exe -b -user SYSDBA -password masterkey 10.1.9.31:c:\sistemas\dados.gdb c:\backups\dados.gbk No google você encontra outros exemplos: http://www.google.com.br/search?hl=pt-BRq=gbak+remotometa=aq=foq= Em 18 de agosto de 2010 08:53, rbernardes02 rbernarde...@yahoo.com.brescreveu: Bom dia! Estou com um problema ja fazem quase 2 dias que tento resolve-lo e não consigo. Tenho uma rotina que faz uma limpeza em um banco de dados firebird, e cria uma copia. Ate ai tudo bem, quando ele é executado para fazer a copia de uma tabela que esta local funciona normalmente, mas quando esta na rede acontece o problema. Eu estou fazendo via Dos, usando o Gfix e Gbak, mas parece que não reconhece os comando quando o comando é passado para ser executado em rede. -- Charlestown [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
Re: [delphi-br] Re: Quem grande empresa usa Delphi ?
Para acrescentar a lista, posso citar uma empresa de SC que possui mais de 800 clientes: http://www.softplan.com.br -- Charlestown [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Ao compilar um programa em delphi, as fontes utilizadas vai junto?
Cria um instalador com o InnoSetup. Com ele você pode instalar fonte: http://www.scribd.com/doc/7274729/Criando-Programas-de-Instalacao-Com-Inno-Setup Em 2 de junho de 2010 08:10, Fellipe Henrique felli...@gmail.com escreveu: Vixi... será que tem como embutir ela? no RES e instalar ela no windows automaticamente, caso nao exista? Porque ficar lembrando de levar as fontes é muito complicado.. rsrs []s Em 1 de junho de 2010 22:46, Marcelo leite_rom...@yahoo.com.br escreveu: a experiencia que tive aqui na empresa era que nao embute não, tinhamos um boleto que o codigo de barras era uma fonte, se não tivesse a fonte instalada no cliente não saia nada. De: Fellipe Henrique felli...@gmail.com fellipeh%40gmail.com Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Enviadas: Terça-feira, 1 de Junho de 2010 21:09:02 Assunto: [delphi-br] Ao compilar um programa em delphi, as fontes utilizadas vai junto? Amigos, utilizamos algumas fontes diferentes em alguns relatórios, e até em telas. Eis que surgiu uma dúvida, devo copiar o arquivo TTF e instalar no windows do cliente, ou o delphi ao compilar o executável embute nele, as fontes? Att. -- _ T.·.F.·.A.·. Fellipe Henrique http://blogs.digitumsoft.com.br/fellipeh -- [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- _ T.·.F.·.A.·. Fellipe Henrique http://blogs.digitumsoft.com.br/fellipeh --- [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM -- Charlestown [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] NFE entrada
NF-e de Entrada pode significar o que? Uma NF-e pode ser própia ou de terceiros. E tanto uma como a outra pode ser de Entrada ou Saída. Exemplos: 1) A empresa X emite uma nota de venda (NF-e própria e de saída) 2) O cliente Y devolve uma compra. A Empresa deverá emitir uma NF-e própria e de entrada. 3) A empresa X recebe mercadoria de um fornecedor Z, e juntamente, uma nota (NF-e de terceiro de saída). 4) A empresa X devolve compra para o Fornecedor Z, que terá que emitir uma nota de entrada (NF-e de terceiro - entrada). Não sou contador, mas pelo que entendi é assim. Um contador poderá te dar detalhes. -- Charlestown Em 2 de maio de 2010 15:57, Heraldo Andrade heraldo_andr...@yahoo.com.brescreveu: Ola pessoal, meu programa ja emite NFE saida, mas nao sei como faze-lo de entrada, nao sei se tem a ver com a numeracao sequencial da NFE Saida, nos programas meus que nao emitem NFE, tem a numeracao para Saida e outra para Entrada, alguem poderia me ajudar?, sou novo em NFE, so tenho um cliente, por isto tenho que correr para deixar pronto. Obrigado .. [As partes desta mensagem que não continham texto foram removidas] [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
Re: [delphi-br] Instalacao NFE
Depois de setado o endereço do Reposítorio, e com a pasta principal criada, clique nessa pasta com o botão direito e escolha: *SVN Checkout* ** -- Charlestown Em 28 de maio de 2010 13:40, Heraldo Andrade heraldo_andr...@yahoo.com.brescreveu: Boa tarde pessoal, Baixei o TortoiseSVN-1.6.8.19260-win32-svn-1.6.11, fiz todo o precedimento, mas nao instalou na pasta ACBR a pasta ACBRNFE, o que eu tenho que fazer? Obrigado [As partes desta mensagem que não continham texto foram removidas] -- Charlestown [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
Re: [delphi-br] NFE entrada
Um contador poderá te dar detalhes. O que o Manual de Integração diz, é o seguinte: *refNFe* Utilizar esta TAG para referenciar uma Nota Fiscal Eletrônica emitida anteriormente, vinculada a NF-e atual. Esta informação será utilizada nas hipóteses previstas na legislação*. * ** *Ex.: Devolução de Mercadorias, Substituição de NF cancelada, **Complementação de NF, etc.* *refNF* Grupo com as informações das NF referenciadas Idem a informação da TAG anterior, referenciando uma Nota Fiscal modelo 1/1A normal (a NF referenciada não é uma NF-e). Você pode verificar o Manual de Integração em http://www.nfe.fazenda.gov.br/portal/docs/Manual_de_Integracao_Contribuinte_v3.00-2009-03-16.pdf Dá a entender que as notas de Fornecedor não entram nessa questão. Sei que elas vão para o sintegra. -- Charlestown Em 28 de maio de 2010 14:38, Marcio mar...@sulfabril.com.br escreveu: Ola Charlestown. voce pode exclarecer se as notas de entradas tambem devem ser declaradas na tag NFEref ?? o em wue situacao devo informar ?? att. Marcio. -- Charlestown [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
Re: [delphi-br] NF-e + SecureBlackBox
Existe um aplicativo que gera NFe através de arquivo texto. O teu ERP gera um arquivo texto e esse aplicativo converte o arquivo texto para XML O aplicativo pode ser visto aqui: http://www.tecnospeed.com.br/index2.php?pg=produtosid=48 -- Charlestown Em 13 de maio de 2010 14:02, Fellipe Henrique felli...@gmail.com escreveu: Alguém, desenvolveu algo para NF-e + a suite SecureBlackBox? Se sim, por favor, entre em contato em PVT. Preciso tirar algumas dúvidas Att -- _ T.·.F.·.A.·. Fellipe Henrique -- CAMPANHA POR UMA INTERNET SEGURA Proteja o endereço de seus amigos como estou protegendo o seu. Ao enviar mensagens use SEMPRE o Cco (cópia oculta). Assim TODOS os endereços estarão preservados. E, claro, antes de encaminhar um e-mail, delete todas as informações que apareçam no corpo do e-mail e que possam ser usadas por hackers. ### [As partes desta mensagem que não continham texto foram removidas] -- Charlestown [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
Re: [delphi-br] [OFF-TOPIC] NFe: Como conseguiram esta nfe ???
Essa nota foi fácil de descobrir, agora quem pode explicar essa outra com totais diferentes? Seria algo relativo ao CFOP dos produtos? A chave abaixo foi postada em outro grupo de discusão. 431004087698060001505500100838008388 -- Charlestown Em 19 de maio de 2010 16:30, Albuquerque sys.e...@yahoo.com escreveu: Estou com um DANFE em mãos. Pertence a um fornecedor de um cliente meu. Meu cliente permitiu a publicação da chave de acesso da nfe (está no final deste) para esclarecer a seguinte dúvida: -A soma dos produtos não confere com o valor total da nota. Por quê ? -Simples: a nfe tem desconto ! Porém -No DANFE não tem desconto algum impresso, seja nos totais (Valor Desconto) ou por produto. Como ? -Desconfiei que o desconto foi enviado via XML, porém o sistema do fornecedor não imprime o desconto no DANFE dele. Só que -Acessando a nfe através de sua chave nota-se que não tem desconto algum enviado/citado/impresso !!! Portanto pergunto: O sistema da Receita não faz a conferência da soma dos produtos com o valor total da nota ? (se fizesse jamais permitiria que a nfe aqui em questão fosse liberada) Pra quem quiser acessar a nfe para conferir, segue a chave (com autorização EXPRESSA do meu cliente) 3510057285550500138255055838436208280945 Desde já agradeço a atenção dispensada. Att. Albuquerque [As partes desta mensagem que não continham texto foram removidas] -- Charlestown [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
Re: [delphi-br] Delphi 7 e NFe
Stainle, veja em http://www.tecnospeed.com.br/index2.php?pg=produtosid=49 uma opção alternativa para o Emissor do SEFAZ, essa opção é intuitiva e possui suporte técnico. Com ele vc não precisa se preocupar em criar os XMLs. -- Charlestown Em 13 de março de 2010 15:01, stainle2003 stainle2...@yahoo.com.brescreveu: Alguém sabe onde encontro exemplo de como criar em Delphi 7 um programa para enviar dados para validar a NFe e depois óbviamente emitir a DANFE, não tenho idéia de quais componentes devo usar para comunicar com o site da fazenda, eu já consegui criar o arquivo texto para ser importado e enviar pelo programa disponibilizado pelo site, sei que devo agora gerar em XML mas não tenho idéia de como fazer o programa. Onde eu encontraria modelos ou exemplos ? grato Stainle -- Charlestown [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
Re: [delphi-br] programa controle de padaria
Que ajuda vc está precisando? -- Charlestown 2009/10/19 nillgolv nillg...@bol.com.br Oi pessoal, será que alguém pode me ajudar em um fonte para controle de padaria. uso delphi 7 Grato. Nilton -- Abraços, Charlestown [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Pesquiza com SQLQuery - Ajuda TCC Ú ltimo Ano!!!!!!!
Você pode usar TTable ou TClientDataSet Charlestown 2009/10/8 Ricardo Rocha ricardo_r...@yahoo.com.br Olá Moacir! Muito obrigado! Funcional perfeitamente. Agora só uma dúvida, se eu usar o quais componentes do DBEpress eu teria que usar para fazer uma consulta deste tipo? Obrigado att, Ricardo Messias da Silva Rocha Ciência da Computação - 2009 - De: Moacir - GMail prism...@gmail.com prismars%40gmail.com Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Enviadas: Qui, Outubro 8, 2009 1:03:25 PM Assunto: Re: [delphi-br] Pesquiza com SQLQuery - Ajuda TCC Último Ano!!! Ricardo, Use a função UPPER do firebird para isto: sql :='select * from TB_PRODUTO where UPPER(NOME_PROD) like'++' %'+Ansiuppercase (edtBusca. Text)+'%' +; Sucesso !! Moacir ricardo_rmsr escreveu: Bom dia ... Estou fazendo uma aplicação Delphi para meu TCC, esta aplicação utiliza o componente BDE para conexão com Firebird, fiz um formulário onde tenho um edid, dbgrid, datasource e sqlquery. Meu código de pesquiza está assim: sql : String; begin sql :='select * from TB_PRODUTO where NOME_PROD like'++' %'+edtBusca. Text+'%'+ ; DMBusca.qVenda. Close; DMBusca.qVenda. SQL.Clear; DMBusca.qVenda. SQL.Add(sql) ; DMBusca.qVenda. Open; a pesquisa está funconando, porém as informações armazenadas na TB_PRODUTO, estão escrita com a primeira letra em maiuscula e o restante em minusculo, como eu faço para fazer a pesquisa sem diferencias as letras Obrigado Ricardo Rocha - - -- __ 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] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] DllInscE32(validador Inscr. Est. da Receita) com Delphi 2009
Pessoal não estou conseguindo validar as inscrições no Delphi 2009 com a DLL
do governo.
Se executo o programa exemplo http://www.sintegra.gov.br/DLL3.zip (
http://www.sintegra.gov.br/DLL3.zip) dá tudo certo.
Mas se dou um build no projeto e executo, não passa nenhuma inscrição! Todas
aparecem como inválida.
Alguém já passou por isso?
CODE:
//
*type*
TValidaIE = *function* (*const* Insc, UF: *String*): Integer; *stdcall*;
*function* TfwkDMCustomIB.ValidaInscEst(aInscEst, _UF: *string*;
*out*aMensagem:
*String*): Boolean;
var
x: *String*;
Handle: THandle;
ValidaIE: TValidaIE;
begin
Handle := LoadLibrary('DllInscE32.Dll');
*if* Handle 0 *then*
begin
@ValidaIE := GetProcAddress(Handle, 'ConsisteInscricaoEstadual');
*if* @ValidaIE nil *then*
begin
*if* ValidaIE(aInscEst,_UF) 0 *then*
aMensagem := 'Inscrição Estadual inválida!';
end
else
aMensagem := 'Falha ao carregar DllInscE32.dll';
end
else
aMensagem := 'DLL não encontrada: DllInscE32.dll';
finally
FreeLibrary (Handle);
end;
end;
//
Charlestown
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Nota fiscal eletronica ??
Dá uma olhada nesse site www.tecnospeed.com.br Charlestown 2009/8/5 Heraldo Andrade heraldo_andr...@yahoo.com.br Pessoal, tenho um programa instalado que o clientye agora vai precisar emitir nota fiscal eletronica, alguem tem alguma ajuda para me fornecer de onde consigo material para o desenvolvimento ?? __ 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] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] CreateProcess
Pessoal, alguém tem o mpr.lib e pode me passar, fazendo o favor? O Visual Studio 2005 tem essa biblioteca na pasta: *C:\Arquivos de programas\Microsoft Platform SDK\Lib\mpr.lib* Só preciso dessa biblioteca, e não quero instalar o Visual Studio. Desde já agradeço, Charlestown Maringá-PR [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: Formas de se fazer com que um computador desligue
Tive um problema parecido em minha máquina: vira e mexe ela desligava sozinha. Abri minha CPU e pude ver que o dissipador do processador estava entupido de sujeira, gerando um superaquecimento. Limpei o dissipador e não desligou sozinha mais. Obs.: Eu não tenho e nem tinha o seu sistema instalado na minha máquina, huahuahuahuahuahua... Charlestown Maringá-PR [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Delphi doado é pirataria?
Posso até estar enganado, mas se o Delphi foi adquirido legalmente pelo teu irmão, não é pirataria. Charlestown Maringá-PR [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Aplicativo n-tier trava ao tentar carregar servidor
Descobri parte do problema!
No evento Create do RemoteDataModule, eu estava fechando e abrindo o
SQLConnection para poder pegar os parâmetros de um arquivo. Retirei o Close
e o Open, aí o aplicativo Server é carregado automaticamente mas aparece
mensagem: *Missing Driver Name* quando tento abrir um CDS. Segue o trecho
do código:
*procedure TrdmMain.RemoteDataModuleCreate(Sender: TObject);*
*begin*
* SQLConnection1.Close;*
* if FileExists(GetCurrentDir + '\OdontoDB.Ini') then
begin
SQLConnection1.Params.Clear;
SQLConnection1.LoadParamsOnConnect := False;
SQLConnection1.ConnectionName := 'OdontoDB';
SQLConnection1.DriverName := 'Interbase';
SQLConnection1.GetDriverFunc := 'getSQLDriverINTERBASE';
SQLConnection1.LibraryName := 'dbexpint.dll';
SQLConnection1.VendorLib := 'gds32.dll';
ArqIni := TIniFile.Create(GetCurrentDir + '\OdontoDB.Ini');
try
SQLConnection1.LoadParamsFromIniFile(GetCurrentDir + '\OdontoDB.Ini');
SQLConnection1.DriverName := ArqIni.ReadString('OdontoDB',
'DriverName', '');*
* Finally
ArqIni.Free;
end;*
*SQLConnection1.Open;
end;*
Grato,
Charlestown
Maringá-PR
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Aplicativo n-tier trava ao tentar carregar servidor
Seguindo a sugestão do Roberto estou acrescentando mais informações:
Estou usando Delphi 7.0 (conexão DBX) + Firebird 2.1 no WinXP
O problema é que quando executo o cliente, o servidor deveria ser
automaticamente carregado, mas o servidor chega a ir pro Tray mas fica
travado e o cliente não termina de executar também.
Já tentei de tudo mas nada dá certo.
Não sei mais o que fazer, por isso estou recorrendo ao grupo.
Segue abaixo alguns trechos do código.
Grato,
Charlestown
Maringá-PR
-
// DataModule
constructor TDM1.Create(AOwner: TComponent);
begin
inherited;
SocketConnection1.Address := '127.0.0.1';
SocketConnection1.ServerName := 'OdontoServer.rdmMain';
ConnectionBroker1.Connected := True;
if not ConnectionBroker1.Connected then
ShowMessage('Não conectado!');
end;
/
// RemoteDataModule
initialization // uRDMMain
TComponentFactory.Create(ComServer, TrdmMain, Class_rdmMain,
ciMultiInstance, tmApartment);
end.
// Form do Servidor
procedure TfrmConfigServer.FormCreate(Sender: TObject);
begin
if FileExists(GetCurrentDir + '\OdontoDB.Ini') then
begin
ArqIni := TIniFile.Create(GetCurrentDir + '\OdontoDB.Ini');
Try
(*Texto := ArqIni.ReadString('OdontoDB', 'Database', '');
for i := 1 to length(Texto) do
begin
if Copy(Texto,i,1) = ':' then
begin
edBDIP.Text := Copy(Texto,1, i - 1);
edBDName.Text := Copy(Texto,i + 1, length(Texto));
break;
end;
end;
*)
edBDArquivo.Text := ArqIni.ReadString('OdontoDB', 'Database', '');
edBDUsuario.Text := ArqIni.ReadString('OdontoDB', 'User_Name', '');
edBDSenha.Text := ArqIni.ReadString('OdontoDB', 'Password', '');
Finally
ArqIni.Free;
end;
end
else
begin
gravaOdontoDB;
end;
if FileExists(GetCurrentDir + '\OdontoServer.Ini') then
begin
ArqIni := TIniFile.Create(GetCurrentDir + '\OdontoServer.Ini');
Try
edOSIP.Text := ArqIni.ReadString('Server', 'IP', '');
Finally
ArqIni.Free;
end;
end
else
begin
gravaOdontoServer;
end;
end;
procedure TfrmConfigServer.gravaOdontoDB;
begin
ArqIni := TIniFile.Create(trim(GetCurrentDir) + '\' + 'OdontoDB.Ini');
Try
ArqIni.WriteString('OdontoDB', 'DriverName', 'Interbase');
ArqIni.WriteString('OdontoDB', 'Database', edBDArquivo.Text);
ArqIni.WriteString('OdontoDB', 'RoleName', 'RoleName');
ArqIni.WriteString('OdontoDB', 'User_Name', edBDUsuario.Text);
ArqIni.WriteString('OdontoDB', 'Password', edBDSenha.Text);
ArqIni.WriteString('OdontoDB', 'ServerCharSet', '');
ArqIni.WriteString('OdontoDB', 'SQLDialect', '3');
ArqIni.WriteString('OdontoDB', 'ErrorResourceFile', '');
ArqIni.WriteString('OdontoDB', 'LocaleCode', '');
ArqIni.WriteString('OdontoDB', 'BlobSize', '-1');
ArqIni.WriteString('OdontoDB', 'CommitRetain', 'False');
ArqIni.WriteString('OdontoDB', 'WaitOnLocks', 'True');
ArqIni.WriteString('OdontoDB', 'Interbase TransIsolation',
'ReadCommited');
ArqIni.WriteString('OdontoDB', 'Trim Char', 'False');
Finally
ArqIni.Free;
end;
end;
procedure TfrmConfigServer.gravaOdontoServer;
begin
ArqIni := TIniFile.Create(trim(GetCurrentDir) + '\' + 'OdontoServer.Ini');
Try
ArqIni.WriteString('Server', 'IP', edOSIP.Text);
Finally
ArqIni.Free;
end;
end;
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Aplicativo n-tier trava ao tentar carregar servidor
Bom dia pessoal!
Não tenho muita experiência em Delphi e estou apanhando com uma aplicação
n-tier.
Estou usando conexão DBX com firebird.
O problema é que quando executo o cliente, o servidor deveria ser
automaticamente carregado, mas o servidor chega a ir pro Tray mas fica
travado e o cliente não termina de executar também.
Já tentei de tudo mas nada dá certo.
Não sei mais o que fazer, por isso estou recorrendo ao grupo.
Segue abaixo alguns trechos do código.
Grato,
Charlestown
Maringá-PR
-
// DataModule
constructor TDM1.Create(AOwner: TComponent);
begin
inherited;
SocketConnection1.Address := '127.0.0.1';
SocketConnection1.ServerName := 'OdontoServer.rdmMain';
ConnectionBroker1.Connected := True;
if not ConnectionBroker1.Connected then
ShowMessage('Não conectado!');
end;
/
// RemoteDataModule
initialization // uRDMMain
TComponentFactory.Create(ComServer, TrdmMain, Class_rdmMain,
ciMultiInstance, tmApartment);
end.
// Form do Servidor
procedure TfrmConfigServer.FormCreate(Sender: TObject);
begin
if FileExists(GetCurrentDir + '\OdontoDB.Ini') then
begin
ArqIni := TIniFile.Create(GetCurrentDir + '\OdontoDB.Ini');
Try
(*Texto := ArqIni.ReadString('OdontoDB', 'Database', '');
for i := 1 to length(Texto) do
begin
if Copy(Texto,i,1) = ':' then
begin
edBDIP.Text := Copy(Texto,1, i - 1);
edBDName.Text := Copy(Texto,i + 1, length(Texto));
break;
end;
end;
*)
edBDArquivo.Text := ArqIni.ReadString('OdontoDB', 'Database', '');
edBDUsuario.Text := ArqIni.ReadString('OdontoDB', 'User_Name', '');
edBDSenha.Text := ArqIni.ReadString('OdontoDB', 'Password', '');
Finally
ArqIni.Free;
end;
end
else
begin
gravaOdontoDB;
end;
if FileExists(GetCurrentDir + '\OdontoServer.Ini') then
begin
ArqIni := TIniFile.Create(GetCurrentDir + '\OdontoServer.Ini');
Try
edOSIP.Text := ArqIni.ReadString('Server', 'IP', '');
Finally
ArqIni.Free;
end;
end
else
begin
gravaOdontoServer;
end;
end;
procedure TfrmConfigServer.gravaOdontoDB;
begin
ArqIni := TIniFile.Create(trim(GetCurrentDir) + '\' + 'OdontoDB.Ini');
Try
ArqIni.WriteString('OdontoDB', 'DriverName', 'Interbase');
ArqIni.WriteString('OdontoDB', 'Database', edBDArquivo.Text);
ArqIni.WriteString('OdontoDB', 'RoleName', 'RoleName');
ArqIni.WriteString('OdontoDB', 'User_Name', edBDUsuario.Text);
ArqIni.WriteString('OdontoDB', 'Password', edBDSenha.Text);
ArqIni.WriteString('OdontoDB', 'ServerCharSet', '');
ArqIni.WriteString('OdontoDB', 'SQLDialect', '3');
ArqIni.WriteString('OdontoDB', 'ErrorResourceFile', '');
ArqIni.WriteString('OdontoDB', 'LocaleCode', '');
ArqIni.WriteString('OdontoDB', 'BlobSize', '-1');
ArqIni.WriteString('OdontoDB', 'CommitRetain', 'False');
ArqIni.WriteString('OdontoDB', 'WaitOnLocks', 'True');
ArqIni.WriteString('OdontoDB', 'Interbase TransIsolation',
'ReadCommited');
ArqIni.WriteString('OdontoDB', 'Trim Char', 'False');
Finally
ArqIni.Free;
end;
end;
procedure TfrmConfigServer.gravaOdontoServer;
begin
ArqIni := TIniFile.Create(trim(GetCurrentDir) + '\' + 'OdontoServer.Ini');
Try
ArqIni.WriteString('Server', 'IP', edOSIP.Text);
Finally
ArqIni.Free;
end;
end;
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Overload
Pessoal, bom dia! Essa é a minha primeira dúvida que estou enviando ao fórum. É o seguinte: durante a compilação não há erro nas procedures, mas há erro na chamada delas. Não consegui entender o porque dos erros, sendo que as procedures estão como Overload. Segue abaixo a cópia das procedures, da chamada e dos erros de compilação: *Arquivo1.pas*: procedure MarcaDesmarcaReadOnly(ACampo: Array of String; AreadOnly: boolean); overload; procedure MarcaDesmarcaReadOnly(AComponente: Array of TWinControl; AreadOnly: boolean); overload; procedure MarcaDesmarcaReadOnly(ACampo: Array of String; AreadOnly: Array of boolean); overload; procedure MarcaDesmarcaReadOnly(AComponente: Array of TWinControl; AreadOnly: Array of boolean); overload; procedure MarcaDesmarcaReadOnly(ACampo: Array of String; AreadOnly: boolean); var int_Loop: SmallInt; begin for int_Loop := 0 to High(ACampo) do begin dm_app.ReadOnlyDBControl(ACampo[int_Loop], AReadOnly); end; end; procedure MarcaDesmarcaReadOnly(AComponente: Array of TWinControl; AreadOnly: boolean); var int_Loop: SmallInt; begin for int_Loop := 0 to High(AComponente) do begin dm_app.ReadOnlyDBControl(AComponente[int_Loop], AReadOnly); end; end; procedure MarcaDesmarcaReadOnly(ACampo: Array of String; AreadOnly: Array of boolean); overload; var int_Loop: SmallInt; begin for int_Loop := 0 to High(ACampo) do begin dm_app.ReadOnlyDBControl(ACampo[int_Loop], AReadOnly[int_Loop]); end; end; procedure MarcaDesmarcaReadOnly(AComponente: Array of TWinControl; AreadOnly: Array of boolean); overload; var int_Loop: SmallInt; begin for int_Loop := 0 to High(AComponente) do begin dm_app.ReadOnlyDBControl(AComponente[int_Loop], AReadOnly[int_Loop]); end; end; Obs.: A procedure ReadOnlyDBControl também é overload. *Arquivo2.pas*: MarcaDesmarcaReadOnly([DBEditConsignado, sdbeFornecedor], [true, false]); MarcaDesmarcaReadOnly([DBEdParcelaEmp,DBEdValorTotalEmp,DBEdSaldoEmp],True); MarcaDesmarcaReadOnly(['ARREDONDA'],True); *Erros:* [Error] Arquivo2.pas(222): Ambiguous overloaded call to 'MarcaDesmarcaReadOnlyB' [Error] Arquivo2.pas(222): Ordinal type required [Error] Arquivo2.pas(222): Incompatible types: 'Integer' and 'TSearchDBEdit' [Error] Arquivo2.pas(222): There is no overloaded version of 'MarcaDesmarcaReadOnlyB' that can be called with these arguments [Error] Arquivo2.pas(344): Ambiguous overloaded call to 'MarcaDesmarcaReadOnly' [Error] Arquivo2.pas(344): Ordinal type required [Error] Arquivo2.pas(344): Incompatible types: 'Integer' and 'TDBEdit' [Error] Arquivo2.pas(344): Incompatible types: 'Integer' and 'TDBEdit' [Error] Arquivo2.pas(351): Ambiguous overloaded call to 'MarcaDesmarcaReadOnly' [Error] Arquivo2.pas(351): Ordinal type required [Error] Arquivo2.pas(361): Ambiguous overloaded call to 'MarcaDesmarcaReadOnly' [Error] Arquivo2.pas(361): Ordinal type required [Error] Arquivo2.pas(382): Ambiguous overloaded call to 'MarcaDesmarcaReadOnly' [Error] Arquivo2.pas(382): Ordinal type required [Error] Arquivo2.pas(480): Ambiguous overloaded call to 'MarcaDesmarcaReadOnly' [Error] Arquivo2.pas(480): Ordinal type required [Error] Arquivo2.pas(480): There is no overloaded version of 'MarcaDesmarcaReadOnly' that can be called with these arguments [Error] Arquivo2.pas(681): Ambiguous overloaded call to 'MarcaDesmarcaReadOnly' [Error] Arquivo2.pas(681): Ordinal type required [Error] Arquivo2.pas(682): Missing operator or semicolon [Error] Arquivo2.pas(684): Ambiguous overloaded call to 'MarcaDesmarcaReadOnly' [Error] Arquivo2.pas(684): Ordinal type required [Error] Arquivo2.pas(687): Ambiguous overloaded call to 'MarcaDesmarcaReadOnly' [Error] Arquivo2.pas(687): Ordinal type required [Error] Arquivo2.pas(690): Ambiguous overloaded call to 'MarcaDesmarcaReadOnly' [Error] Arquivo2.pas(690): Ordinal type required [Error] Arquivo2.pas(690): Incompatible types: 'Integer' and 'String' [Error] Arquivo2.pas(699): Ambiguous overloaded call to 'MarcaDesmarcaReadOnly' [Error] Arquivo2.pas(699): Ordinal type required [Error] Arquivo2.pas(699): Incompatible types: 'Integer' and 'String' [Error] Arquivo2.pas(701): Ambiguous overloaded call to 'MarcaDesmarcaReadOnly' [Error] Arquivo2.pas(701): Ordinal type required [Error] Arquivo2.pas(701): Incompatible types: 'Integer' and 'String' [Fatal Error] Arquivo2.pas(12): Could not compile used unit 'Arquivo2' -- Charlestown [As partes desta mensagem que não continham texto foram removidas]
