Hi there guys,

The following code works, but it logs only one empty line.

Is it supposed behaviour of TIBValidationService or am i missing
something?

with IBValidationService do
begin
ServerName := 'localhost';
LoginPrompt := False;
Params.Add('user_name=SYSDBA');
Params.Add('password=masterkey');
Screen.Cursor := crHourGlass;
Attach;
Active := True;
try
Options := [CheckDB, ValidateDB];
DatabaseName := 'C:\Projects\WorkFlowPro\ENV.GDB';
ServiceStart;
while not Eof do
mmLog.Lines.Add(GetNextLine);
finally
Active := False;
Screen.Cursor := crDefault
end;
end

Thanx,
Eugene.