2016-01-15 11:43 GMT+01:00 Martin Schreiber <[email protected]>:
> On Friday 15 January 2016 10:52:18 Julio Jiménez wrote:
> >
> > Funny with Sourceforge... tried to send the example file: Backup.zip and
> > rejected the message:
> >
> > The error that the other server returned was:
> > 550 Blacklisted file extension detected
> >
> I don't know why, I found no such setting in mailinglist setup.
> >
> > 2016-01-15 10:41 GMT+01:00 Martin Schreiber <[email protected]>:
> > > Can you send your test project?
> >
> > Of course.
> >
> > > > May be I'm doing something wrong because I guess you have tested it
> at
> > > > first.
> > >
> > > Yes, it works for me.
> >
> > The test is under fpc 3.0.1. i386
>
> "
> procedure tmainfo.leertexto(const sender: tfbservice; const atext:
> msestring);
> begin
> tstringgrid1[0].datalist.addchars(atext);
> tstringgrid1.showlastrow();
> end;
>
>
I commented these lines only for isolating the issue and discard it was
there.
> procedure tmainfo.dobackup(const sender: TObject);
> begin
> // hostname, username and password have been set in design mode
> tfbservice1.connected:= true;
> {procedure backupstart(const dbname: msestring;
> const backupfiles: array of msestring; const lengths: array of
> card32;
> //bytes, none for last file
> const verbose: boolean = false; const stat: string = '';
> //stat for FB 2.5.5 only, 1..4 chars, valid chars = T|D|R|W
> const aoptions: backupoptionsty = []; const factor: card32 = 0);}
> tfbservice1.backupstart('gestv', ['/tmp/micopia.fbk'],
>
> [], <<<<<<<<---- empty, not 0
>
Your last comment confussed me :)
//bytes, none for last file
In your actual comment you forgot to put my name ;-)
//bytes, none (not 0!) for last file
Probably is better to say: // Bytes. Empty array for last file
> true, '', [bao_ignorelimbo]);
>
>
> //tfbservice1.nbakstart('gestv', '/tmp/micopia.fbk', 0,
> [nbo_notriggers], 'on'); // 0 full backup
> // tfbservice1.connected:= false; <<<<<<<<-----
> "
> The backup runs in a separate thread, connected:= false cancels the
> operation.
> "
> // showmessage('Done'); <<<<<<<<-----
> "
> Use "onasyncend"
> "
>
Understood. This is my fault for trying to use your code like lazarus code.
> end;
>
> procedure tmainfo.asyncend(const sender: tfbservice; const aborted:
> Boolean);
> begin
> showmessage('Done');
> end;
> "
>
What about closing attached service? ( tfbservice1.connected:= false)
Is not required?
>
> The AV by cancelling a failed service has been fixed in git master
> d562504ef0d02eef9787408c96bf2bc0ac7f7f00.
>
>
>
Canceling the service closing it seems not having effect. I tried it while
restoring. Press a 'cancel' button. This execute 'tfbservice1.connected:=
false' but the service continues running in the server and the service ends
ok (restore is ok). The program hangs... may be is needed extra work for
cancelling a running service?
BTW, backup and restore are working fine.
Thanks.
--
Julio Jiménez Borreguero
------------------------------------------------------------------------------
Site24x7 APM Insight: Get Deep Visibility into Application Performance
APM + Mobile APM + RUM: Monitor 3 App instances at just $35/Month
Monitor end-to-end web transactions and take corrective actions now
Troubleshoot faster and improve end-user experience. Signup Now!
http://pubads.g.doubleclick.net/gampad/clk?id=267308311&iu=/4140
_______________________________________________
mseide-msegui-talk mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk
