i was writing my first FastCGI application and on building, i've got this error: C:\lazarus\packager\registration\fcllaz.pas(1,1) Fatal: Can't find unit system used by fcllaz
my source: unit unt_principal; {$mode objfpc}{$H+} interface uses SysUtils, Classes, httpdefs, fpHTTP, fpWeb, mysql51conn, sqldb; type { TgetDBUpdates } TgetDBUpdates = class(TFPWebModule) dbConnection: TMySQL51Connection; Transaction: TSQLTransaction; sql_Query: TSQLQuery; procedure DataModuleRequest(Sender: TObject; ARequest: TRequest; AResponse: TResponse; var Handled: Boolean); private { private declarations } function GetDBScripts(const UserVersion : String; const UserSystem : String) : String; function ValidarDados(const UserVersion : String; const UserSystem : String) : Boolean; public { public declarations } end; var getDBUpdates: TgetDBUpdates; implementation {$R *.lfm} { TgetDBUpdates } procedure TgetDBUpdates.DataModuleRequest(Sender: TObject; ARequest: TRequest; AResponse: TResponse; var Handled: Boolean); var UserVersion : String; UserSystem : String; begin AResponse.ContentType := 'text/sql;charset=latin1;'; UserVersion := ARequest.QueryFields.Values['userversion']; UserSystem := ARequest.QueryFields.Values['usersystem']; if ValidarDados(UserVersion, UserSystem) = True Then AResponse.Contents.Text := GetDBScripts(UserVersion, UserSystem); Handled := True; end; function TgetDBUpdates.GetDBScripts(const UserVersion: String; const UserSystem : String): String; begin Result := EmptyStr; try sql_Query.SQL.Add('SELECT upd_script FROM dbu_scripts WHERE upd_sistema = :UserSystem AND upd_versao > :UserVerion'); sql_Query.ParamByName('UserVersion').AsString := UserVersion; sql_Query.ParamByName('UserSystem').AsString := UserSystem; sql_Query.Open; sql_Query.First; while not sql_Query.EOF do Result := Result + sql_Query.FieldByName('upd_script').AsString; except Result := '[ERROR]'; end; end; function TgetDBUpdates.ValidarDados(const UserVersion: String; const UserSystem: String): Boolean; begin Result := True; end; initialization RegisterHTTPModule('TFPWebModule1', TgetDBUpdates); end. but the point is: why fpc raised that error if the fcllaz.pas doesn't directly import that unit? { This file was automatically created by Lazarus. Do not edit! This source is only used to compile and install the package. } unit fcllaz; interface uses RegisterFCL, db, process, simpleipc, eventlog, XMLConf, LazarusPackageIntf; implementation procedure Register; begin RegisterUnit('RegisterFCL', @RegisterFCL.Register); end; initialization RegisterPackage('FCL', @Register); end. ________________________________ William de Oliveira Ferreira Bacharel em Sistemas de Informação
-- _______________________________________________ Lazarus mailing list Lazarus@lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus