ActiveDelphi

[adriano_servitec]

Ola amigos, gostaria de saber se alguem pode me informar aonde posso arrumar este componente Interbase Adimin que vi no artigo de Backup/Restoure do colega HelioMS, nao sei se tem para instalar no Delphi 5.0 ou se ja tem dentro do Delphi eu pelo menos nao achei.

O artigo eh este
http://www.activedelphi.com.br/modules.php?op=modload&name=News&file=article&sid=333&mode=thread&order=0&thold=0

Achei interessante e quero fazer um pro meu sistema, ou se tem outro com fontes para eu analizar.

Valeu a todos
Abraços
Adriano

[Editado em 30/8/2006 por adriano_servitec]
_________________
Jogo seu smartphone? Acesse o link e confira.
https://play.google.com/store/apps/details?id=br.com.couldsys.rockdrum
https://play.google.com/store/apps/details?id=br.com.couldsys.drumsetfree

[ricars01]

Adriano, sei não mas acho que a paleta Interbase Admin deve ser somente do Delphi 6 em diante. Mas não tenho certeza; pelo menos do D6 em diante ela existe e já vem instalada por padrão.


___________________________________________________
:yltype: [i] \"Programar também é uma expressão artística.\" [/i]:yltype:

[img]http://www.delphi-jedi.org/img/btn_jedinow.gif[/img]
[url]http://www.delphi-jedi.org/[/url]

[b]Dica Útil:[/b]
a) Evite Duplicar Posts. Para isso, pode-se pesquisar antes de postar, utilizando o link Procurar na tarja azul, no topo do site. Além disso, caso seu próprio post ainda não tenha sido respondido, ao invés de iniciar um Novo Assunto, responda-o você mesmo, postando qualquer palavra (Ex: “up”, “sobe”, “.”) , simplesmente para que o assunto volte ao topo da lista e os usuários possam ver a sua dúvida novamente.

_________________
<b>Nova assinatura em elaboração... ainda!! Esta é a versão "alfa"</b>

[adriano_servitec]

Acho que sim pois no Delphi 5 nao tem, que pena queria usar o exemplo daquele artigo, bom falando em componente, vc sabe me dizer qual eh o componente do JEDI que zipa arquivos? Me parece que da pra fazer com ele os backups.


Obrigado pela atenção.
Adriano
_________________
Jogo seu smartphone? Acesse o link e confira.
https://play.google.com/store/apps/details?id=br.com.couldsys.rockdrum
https://play.google.com/store/apps/details?id=br.com.couldsys.drumsetfree

[adriano_servitec]

Pessoal, nao fiz os testes ainda, mais pelo menos consegui baixar no site da Borland a ultima versao do IBX e ja esta aparecendo na paleta do Delphi 5 os componetes [b]Interbase Admin[/b].

O site que eu baixei o IBX eh esse:
http://info.borland.com/devsupport/interbase/opensource/

[color=red]Obs: Vou começar fazer os testes agora, por enquanto soh compilei o Packages no Delphi 5 e ja esta instalado os compoentes[/color]
_________________
Jogo seu smartphone? Acesse o link e confira.
https://play.google.com/store/apps/details?id=br.com.couldsys.rockdrum
https://play.google.com/store/apps/details?id=br.com.couldsys.drumsetfree

[adriano_servitec]

Tai pessoal, assim que eu fizesse o teste com a nova paleta [b]Interbase Admin para Delphi 5[/b] prometi colocar o resultado aqui. E realmente funcionou corretamente, e como exemplo utilizei o Artigo de HelioMS para fazer os testes com os componente [b]IBBackupService e o IBRestoreService[/b]

A unica dificudade em compilar o projeto foi em alguns errinhos de digitaçao no artigo do nosso colega e outros recursos tipo componentes do RXLib que subistitui por edits e um OpenDialog e SalveDialog, com seus expecificos filtros para procurar o caminho do Local e Origem do BackUp, do mais funcionou corretamente.

Vou deixar aqui a unit completa para quem quiser testar esse maravilhoso artigo que consegui compilar em Delphi 5 graças ao link acima da Borland.

[b]Programa BackUp e Restore feito em Delphi 5 com a paleta Interbase Admin[/b]
[code]unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
IBServices, StdCtrls, ComCtrls, Buttons, ExtCtrls, DBLookup, FileCtrl;

type
TForm1 = class(TForm)
PageControl1: TPageControl;
TabSheet2: TTabSheet;
TabSheet3: TTabSheet;
IBBackupService1: TIBBackupService;
IBRestoreService1: TIBRestoreService;
Image3: TImage;
Label37: TLabel;
SpeedButton2: TSpeedButton;
RxFechar: TSpeedButton;
GroupBox2: TGroupBox;
Label1: TLabel;
Label2: TLabel;
feBackUp: TEdit;
StatusBar1: TStatusBar;
mmBackup: TMemo;
Button1: TButton;
deBackup: TEdit;
GroupBox3: TGroupBox;
Label3: TLabel;
Label4: TLabel;
FeRestBanco: TEdit;
feRestaurar: TEdit;
mmRestaurar: TMemo;
Button2: TButton;
SpeedButton1: TSpeedButton;
OpenDialog1: TOpenDialog;
OpenDialog2: TOpenDialog;
SpeedButton3: TSpeedButton;
SpeedButton4: TSpeedButton;
SpeedButton5: TSpeedButton;
SaveDialog1: TSaveDialog;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton3Click(Sender: TObject);
procedure SpeedButton5Click(Sender: TObject);
procedure SpeedButton4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
if debackUp.Text = \'\' then
begin
Showmessage(\'Indique onde esta seu Banco\');
febackUp.SetFocus;
Abort;
end;
if febackup.Text = \'\' then
begin
Showmessage(\'Indique onde irá Gravar o Backup\');
deBackup.SetFocus;
Abort;
end;
with IBBackupService1 do
begin
Params.Clear;
BackupFile.Clear;
ServerName := \'localhost\';
LoginPrompt := False;
Params.Add(\'user_name=SYSDBA\');
Params.Add(\'password=masterkey\');
Active := True;
try
Verbose := True;
Options := [NonTransportable, IgnoreLimbo];
DatabaseName := deBackUp.Text;
BackupFile.Add(feBackup.Text); //para criar opçao de nome de arquivo para salvar
ServiceStart;
While not Eof do
mmBackup.Lines.Add(GetNextLine);
finally
Active := False;
end;
end;
ShowMessage(\'Backup Efetuado com Sucesso\');

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
if feRestaurar.Text = \'\' then
begin
Showmessage(\'Indique onde esta o seu Arquivo de Backup\');
feRestaurar.SetFocus;
Abort;
end;
if feRestBanco.Text = \'\' then
begin
Showmessage(\'Indique onde irá Restaurar o seu Backup \');
feRestBanco.SetFocus;
Abort;
end;
with IBRestoreService1 do
begin
Params.Clear;
BackupFile.Clear;
ServerName := \'localhost\';
LoginPrompt := False;
Params.Add(\'user_name=SYSDBA\');
Params.Add(\'password=masterkey\');
Active := True;
try
Verbose := True;
Options := [Replace, UseAllSpace];
PageBuffers := 3000;
PageSize := 4096;
DatabaseName.Add(feRestBanco.text);
BackUpFile.Add(feRestaurar.text);
ServiceStart;
While not Eof do
mmRestaurar.Lines.Add(GetNextLine);
finally
Active := False;
end;
end;
Showmessage(\'Restauração Efetuada com Sucesso\');

end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
if OpenDialog2.Execute then
feRestaurar.Text := OpenDialog2.FileName;
end;

procedure TForm1.SpeedButton3Click(Sender: TObject);
begin
if OpenDialog1.Execute then
feRestBanco.Text := OpenDialog1.FileName;
end;

procedure TForm1.SpeedButton5Click(Sender: TObject);
begin
if SaveDialog1.Execute then
feBackUp.Text := SaveDialog1.FileName;
end;

procedure TForm1.SpeedButton4Click(Sender: TObject);
begin
if OpenDialog1.Execute then
deBackUp.Text := OpenDialog1.FileName;
end;

end.[/code]


_________________
Jogo seu smartphone? Acesse o link e confira.
https://play.google.com/store/apps/details?id=br.com.couldsys.rockdrum
https://play.google.com/store/apps/details?id=br.com.couldsys.drumsetfree