lazarus for win32 serviceApp

Posted 2021-03-20 jjw

procedure TMyThread.Execute;
begin
  //Application.EventLog.FileName:=‘d:xx.txt‘;
  //Application.EventLog.Info(‘OKOKOK‘);
  //DbgOutThreadLog(‘OOKKOOKK‘ +#13+#10);
  while not Self.Terminated do
  begin
    try
      SQLDBLibraryLoader1.ConnectionType := ‘Firebird‘;
      SQLDBLibraryLoader1.LibraryName := ‘D:Firebird_3_0fbclient.dll‘;
      SQLDBLibraryLoader1.Enabled := True;
      SQLDBLibraryLoader1.LoadLibrary;
      SQLConnector1.ConnectorType := ‘Firebird‘;
      SQLConnector1.CharSet:= ‘utf8‘;
      SQLConnector1.HostName:=‘192.168.1.102‘;
      SQLConnector1.DatabaseName:=‘d:firebird_3_0myDBjjw.fdb‘;
      SQLConnector1.UserName:=‘sysdba‘;
      SQLConnector1.Password:=‘jjw‘;
      SQLConnector1.Connected := True;
      SQLQuery1.SQL.Text:=‘select * from test‘;
      SQLQuery1.Open;
      SQLQuery1.Insert;;
      SQLQuery1.FieldByName(‘id‘).AsInteger:=100;
      SQLQuery1.FieldByName(‘msg‘).AsString:=‘ok‘;
      SQLQuery1.Post;
      SQLQuery1.ApplyUpdates;
      SQLTransaction1.Commit;
      SQLQuery1.Close;
      SQLConnector1.Close;
      SQLDBLibraryLoader1.Enabled := False;
      DbgAppendToFile(‘d:log.txt‘, ‘ok‘+#13+#10);
    except
      on E: Exception do
        DbgOutThreadLog(E.Message + ‘ERROR_JJW‘ +#13+#10);
    end;
  end;
end;                                                 

调试和delphi一样,附加服务进程.