hola estube haciendo lo del ejemplo pero cuando llega a esta linea:
Código:
Memo1.Lines.Add(GetNextLine);
me marca un error
Cita:
cannot open file coco270720072.gbk
|
este es exactamente mi codigo
¿alguien me pueder decir que tengo mal?
Código:
procedure TForm1.Button1Click(Sender: TObject);
begin
with IBBackupService1 do
begin
ServerName := '127.0.0.1';
LoginPrompt := False;
Params.Add('user_name=sysdba');
Params.Add('password=masterkey');
Active := True;
try
Verbose := True;
Options := [NonTransportable, IgnoreLimbo];
DatabaseName := 'c:\coco\cocodelphi.fdb';
SQL1.Close;
SQL1.SQL.TExt := 'Select * from Corte__Ultimo';
SQL1.ExecQuery;
BackupFile.Add('COCO'+ SQL1.FieldByName('FECHA_RESUMEN').AsString + SQL1.FieldByName('Turno').AsString+'.gbk');
ServiceStart;
While not Eof do
Memo1.Lines.Add(GetNextLine);
finally
Active := False;
end;
end;
end;
Gracias por su atencion
Saludos Cordiales