robinhocne Postado Setembro 20, 2007 Denunciar Share Postado Setembro 20, 2007 Como faz um arquivo patch, para eu configurar o bando de dados e só usar eles sem fazer instalações. Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Jhonas Postado Setembro 20, 2007 Denunciar Share Postado Setembro 20, 2007 Como voce não disse qual é o banco de dados, olhe nestes dois posts:http://scriptbrasil.com.br/forum/index.php...st&p=445177http://scriptbrasil.com.br/forum/index.php...st&p=448605 Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 robinhocne Postado Setembro 20, 2007 Autor Denunciar Share Postado Setembro 20, 2007 Como voce não disse qual é o banco de dados, olhe nestes dois posts:http://scriptbrasil.com.br/forum/index.php...st&p=445177http://scriptbrasil.com.br/forum/index.php...st&p=448605Me Desculpe mas é o Delphi 07 eFirebird Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Jhonas Postado Setembro 20, 2007 Denunciar Share Postado Setembro 20, 2007 FireBird e Interbase são parecidos . olhe o segundo post. Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 robinhocne Postado Setembro 20, 2007 Autor Denunciar Share Postado Setembro 20, 2007 FireBird e Interbase são parecidos . olhe o segundo post.Eu fiz do jeito que estava no segundo post mas tá dando erros:procedure Tfrmprincipal.FormActivate(Sender: TObject); var i : integer; num : real; begin if FrmPrincipal.DbaIza.Connected = false then FrmPrincipal.DbaIza.Connected := true; if not FrmPrincipal.DbaIza.Active then FrmPrincipal.DbaIza.Active := true; end; end. e ..... var Caminho : TextFile; Line : string; begin Application.Initialize; Application.CreateForm(Tdtmiza, dtmiza); Application.CreateForm(Tfrmprincipal, frmprincipal); Application.CreateForm(TFrmLogin, FrmLogin); Application.CreateForm(TFrmSplash, FrmSplash); FrmSplash.show; // exibe a tela FrmSplash FrmSplash.Refresh; // dá um refresh na tela sleep(0000); // aguarda 02 segundo - incluir na unit o SysUtils na Uses FrmSplash.Release; // Elimina a tela da memoria FrmSplash := nil; // anula a referencia ao ponteiro do objeto //FrmLogin.ShowModal; AssignFile(Caminho, 'C:\cfc\Net.Txt'); // Diretorio onde foi salvo o arquivo Net.txt Reset(Caminho); while not EOF(Caminho) do begin ReadLn(Caminho, Line); FrmPrincipal.FdtmIza.DatabaseName := Line; end; CloseFile(Caminho); Application.Run;Dá esses erros.Build [Error]fprincipal.pas(180): Undeclared identifier: 'DbaIza' [Error] fprincipal.pas(182): Undeclared identifier: 'DbaIza' [Error] fprincipal.pas(189): Statement expected but end of file found [Fatal Error] sistemacfc.dpr(45): Could not compile used unit 'fprincipal.pas'O Meu banco de dados é ligado com um datamodule, no datamodule tenho um IBDataBase, IBQuery e IBTransaction. Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Jhonas Postado Setembro 20, 2007 Denunciar Share Postado Setembro 20, 2007 Vaos aos erros:Build[Error]fprincipal.pas(180): Undeclared identifier: 'DbaIza'[Error] fprincipal.pas(182): Undeclared identifier: 'DbaIza'[Error] fprincipal.pas(189): Statement expected but end of file found[Fatal Error] sistemacfc.dpr(45): Could not compile used unit 'fprincipal.pas'Tenta essas mudanças:procedure Tfprincipal.FormActivate(Sender: TObject); var i : integer; num : real; begin if FrmPrincipal.DbaIza.Connected = false then FrmPrincipal.DbaIza.Connected := true; if not FrmPrincipal.DbaIza.Active then FrmPrincipal.DbaIza.Active := true; end; [Error] fprincipal.pas(189): Statement expected but end of file found ( senteça esperada e end econtrado ) // tirar o end. ..... var Caminho : TextFile; Line : string; begin Application.Initialize; Application.CreateForm(Tdtmiza, dtmiza); Application.CreateForm(Tfrmprincipal, frmprincipal); Application.CreateForm(TFrmLogin, FrmLogin); Application.CreateForm(TFrmSplash, FrmSplash); FrmSplash.show; // exibe a tela FrmSplash FrmSplash.Refresh; // dá um refresh na tela sleep(0000); // aguarda 02 segundo - incluir na unit o SysUtils na Uses FrmSplash.Release; // Elimina a tela da memoria FrmSplash := nil; // anula a referencia ao ponteiro do objeto //FrmLogin.ShowModal; AssignFile(Caminho, 'C:\cfc\Net.Txt'); // Diretorio onde foi salvo o arquivo Net.txt Reset(Caminho); while not EOF(Caminho) do begin ReadLn(Caminho, Line); FrmPrincipal.FdtmIza.IBDatabase1.DatabaseName := Line; // faltou o IBDatabase1 ( a não ser que FdtmIza seja o IBDatabase1, neste caso estaria correto ) end; CloseFile(Caminho); Application.Run;[Error]fprincipal.pas(180): Undeclared identifier: 'DbaIza'[Error] fprincipal.pas(182): Undeclared identifier: 'DbaIza'Identificador não declarado: 'DbaIza'Este erro esta no seu form fprincipal e não neste modulo, verifique. Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 robinhocne Postado Setembro 21, 2007 Autor Denunciar Share Postado Setembro 21, 2007 Jhonas fiz um exemplo do meu projeto dê uma olhada:Teste Patch Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Jhonas Postado Setembro 21, 2007 Denunciar Share Postado Setembro 21, 2007 Olhei seu codigo e fiz as correções ... quer aqui no post ou por email ? Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 robinhocne Postado Setembro 21, 2007 Autor Denunciar Share Postado Setembro 21, 2007 Olhei seu codigo e fiz as correções ... quer aqui no post ou por email ?Ponha no post mesmo pois se alguém precisar, já tem. Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Jhonas Postado Setembro 21, 2007 Denunciar Share Postado Setembro 21, 2007 Vai ai as alterações no codigo:unit FPrincipal; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Buttons, Menus; type TFrmPrincipal = class(TForm) MainMenu1: TMainMenu; Teste1: TMenuItem; SpbTeste: TSpeedButton; procedure FormCreate(Sender: TObject); procedure FormClick(Sender: TObject); procedure FormActivate(Sender: TObject); private { Private declarations } public { Public declarations } end; var FrmPrincipal: TFrmPrincipal; vcpo, vvlr : tstringlist; retorno : string; implementation {$R *.dfm} Uses FCadTeste, FDtmTeste; procedure TFrmPrincipal.FormCreate(Sender: TObject); begin Vcpo := tstringlist.Create; Vvlr := tstringlist.create; end; procedure TFrmPrincipal.FormClick(Sender: TObject); procedure criaform ( form : tformclass); begin with form.Create(application) do try showModal; finally free; end; end; begin if (sender = Teste1) then criaform (TFrmTeste); if (sender = SpbTeste) then criaform (TFrmTeste); end; procedure TFrmPrincipal.FormActivate(Sender: TObject); var i : integer; num : real; begin if DtmTeste.DbaTeste.Connected = false then DtmTeste.DbaTeste.Connected := true; if not DtmTeste.TrcTeste.Active then DtmTeste.TrcTeste.Active := true; end; END. program Teste; uses Forms, FPrincipal in 'FPrincipal.pas' {FrmPrincipal}, Funcoes in 'Funcoes.pas', FDtmTeste in 'FDtmTeste.pas' {DtmTeste: TDataModule}, FCadTeste in 'FCadTeste.pas' {FrmTeste}; {$R *.res} var Caminho : TextFile; Line : string; begin Application.Initialize; Application.CreateForm(TFrmPrincipal, FrmPrincipal); Application.CreateForm(TDtmTeste, DtmTeste); Application.CreateForm(TFrmTeste, FrmTeste); AssignFile(Caminho, 'C:\cfc\Net.Txt'); Reset(Caminho); while not EOF(Caminho) do begin ReadLn(Caminho, Line); FdtmTeste.DtmTeste.DbaTeste.DatabaseName := Line; end; CloseFile(Caminho); Application.Run; end. unit FDtmTeste; interface uses SysUtils, Classes, DB, IBCustomDataSet, IBQuery, IBDatabase; type TDtmTeste = class(TDataModule) DbaTeste: TIBDatabase; TrcTeste: TIBTransaction; QryTeste: TIBQuery; private { Private declarations } public { Public declarations } end; var DtmTeste: TDtmTeste; implementation {$R *.dfm} end.OBS: agora com o bloco de notas voce cria o arquivo com o nome Net.txt e coloque nele o caminho para o seu banco de dadosaqui eu tive que usar assim:C:\Delphi5\Robinho\Teste\Teste\TESTE.GDB ( modifique o caminho para o seu banco de dados ) salve o arquivo na pasta que voce definiu :AssignFile(Caminho, 'C:\cfc\Net.Txt');Testei aqui ... funcionando ok .... abraço Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 robinhocne Postado Setembro 21, 2007 Autor Denunciar Share Postado Setembro 21, 2007 Jhonas, não deu certo:Mas algumas duvidas!Pois eu fiz da maneiro que você adcionou no post, mas o que eu quero e fiz foi testar em outra maquina que não tinha o delphi, então copiei o exe, banco de dados e o arquivo net.txt, ai ele dá erro.e agora? Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Jhonas Postado Setembro 21, 2007 Denunciar Share Postado Setembro 21, 2007 Pois eu fiz da maneiro que você adcionou no post, mas o que eu quero e fiz foi testar em outra maquina que não tinha o delphi, então copiei o exe, banco de dados e o arquivo net.txt, ai ele dá erro.Se voce foi testar em outra maquina, essa maquina no minimo tem que ter o interbase ou firebird instalado, caso contrario vai dar erro.OBS: os codigos do jeito que estão no post funcionam corretamente sem erro... se na sua maquina tem instalado o iterbase não vai dar erro. Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 robinhocne Postado Setembro 21, 2007 Autor Denunciar Share Postado Setembro 21, 2007 Pois eu fiz da maneiro que você adcionou no post, mas o que eu quero e fiz foi testar em outra maquina que não tinha o delphi, então copiei o exe, banco de dados e o arquivo net.txt, ai ele dá erro.Se voce foi testar em outra maquina, essa maquina no minimo tem que ter o interbase ou firebird instalado, caso contrario vai dar erro.OBS: os codigos do jeito que estão no post funcionam corretamente sem erro... se na sua maquina tem instalado o iterbase não vai dar erro.Ae deu certo, instalei o Firebird e tudo ocorreu certo.ResolvidoPois eu fiz da maneiro que você adcionou no post, mas o que eu quero e fiz foi testar em outra maquina que não tinha o delphi, então copiei o exe, banco de dados e o arquivo net.txt, ai ele dá erro.Se voce foi testar em outra maquina, essa maquina no minimo tem que ter o interbase ou firebird instalado, caso contrario vai dar erro.OBS: os codigos do jeito que estão no post funcionam corretamente sem erro... se na sua maquina tem instalado o iterbase não vai dar erro.Ae deu certo, instalei o Firebird e tudo ocorreu certo.ResolvidoCara agora outra coisa, você poderia me indicar um instalador para que possa já instalar o firebird e o programa já no disco certo e pasta? Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Jhonas Postado Setembro 21, 2007 Denunciar Share Postado Setembro 21, 2007 (editado) voce pode usar o InstallShield Express que acompanha o delphineste endereço tem mais informações a respeito:http://www.activedelphi.com.br/modules.php...icle&sid=10 Editado Setembro 21, 2007 por Jhonas Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 robinhocne Postado Setembro 22, 2007 Autor Denunciar Share Postado Setembro 22, 2007 voce pode usar o InstallShield Express que acompanha o delphineste endereço tem mais informações a respeito:http://www.activedelphi.com.br/modules.php...icle&sid=10Cara to seguindo pela essa dica mas nato to entendendo esta parte onde eu faco isso?Você deve selecionar, na janela superior, o diretório onde criou o programa, C:\TCBank . Na janela inferior, dê um clique com o botão direito do mouse sobre Destination Computer e selecione a opção Show Predifined Folders, escolhendo o diretório [ Installdir]. O diretório de instalação é criado abaixo de Destination Computer. No quadro superior direito, selecione os arquivos TCBank.exe, TCBank.GDB, arrastando-os para o quadro inferior, no diretório criado. Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Jhonas Postado Setembro 22, 2007 Denunciar Share Postado Setembro 22, 2007 Você deve selecionar, na janela superior, o diretório onde criou o programa, C:\TCBank . Na janela inferior, dê um clique com o botão direito do mouse sobre Destination Computer e selecione a opção Show Predifined Folders, escolhendo o diretório [ Installdir]. O diretório de instalação é criado abaixo de Destination Computer. No quadro superior direito, selecione os arquivos TCBank.exe, TCBank.GDB, arrastando-os para o quadro inferior, no diretório criado.Isto refere-se apenas ao exemplo que ele esta mostrando .... os caminhos, diretorios, arquivos, etc .. é voce que tem que definir para o seu projeto .... voce deve seguir o exemplo, mas trocando para o seu projeto. Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Micheus Postado Setembro 22, 2007 Denunciar Share Postado Setembro 22, 2007 Pois eu fiz da maneiro que você adcionou no post, mas o que eu quero e fiz foi testar em outra maquina que não tinha o delphi, então copiei o exe, banco de dados e o arquivo net.txt, ai ele dá erro.Se voce foi testar em outra maquina, essa maquina no minimo tem que ter o interbase ou firebird instalado, caso contrario vai dar erro.Jhonas, complementando a informação. Se as demais máquinas que vão acessar o banco, estiverem na rede, não há necessidade da instalação do gerenciador do banco nelas. Na verdade será necessário apenas instalar junto com o programa as DLL's:- para o Firebird -> FBClient.dll (localizada na pasta BIN de instalação do banco no servidor)- para o Interbase -> GDS32.dll (esta eu não estou certo da localização, mas se não estiver numa pasta similar, provavelmente estará pasta System32, também do servidor). Obs.: na instalação do Firebird, há uma opção que permite a "criação"(para fins de compatibilidade) da DLL GDS32.dll e sua cópia para a pasta System32 do servidor.Estas dll's deverão ser inclusas na sua instalação e copiadas para a pasta SYSTEM32 da máquina client. Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Jhonas Postado Setembro 25, 2007 Denunciar Share Postado Setembro 25, 2007 voce pode baixar as apostilas de como utilizar o install shield http://inf.unisul.br/~osmarjr/download/del...stallShield.ziphttp://www.apostilasbr.com.br/busca.asp?Qu...x=20&I1.y=9http://inf.unisul.br/~osmarjr/download/del...odelphi3.02.ziphttp://inf.unisul.br/~osmarjr/download/del...ursodelphi4.ziphttp://br.geocities.com/all_software/downl...s/isexpress.ziphttp://paginas.terra.com.br/informatica/pa...phi/instalx.zip Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 robinhocne Postado Outubro 15, 2007 Autor Denunciar Share Postado Outubro 15, 2007 voce pode baixar as apostilas de como utilizar o install shield http://inf.unisul.br/~osmarjr/download/del...stallShield.ziphttp://www.apostilasbr.com.br/busca.asp?Qu...x=20&I1.y=9http://inf.unisul.br/~osmarjr/download/del...odelphi3.02.ziphttp://inf.unisul.br/~osmarjr/download/del...ursodelphi4.ziphttp://br.geocities.com/all_software/downl...s/isexpress.ziphttp://paginas.terra.com.br/informatica/pa...phi/instalx.zipResolvido Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
robinhocne
Como faz um arquivo patch, para eu configurar o bando de dados e só usar eles sem fazer instalações.
Link para o comentário
Compartilhar em outros sites
18 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.