[ Foro de Pascal ]

sdl en fpc(pascal)

17-Aug-2015 20:44
Invitado (Juan María galindio)
1 Respuestas

uses
...
dbconfig, dbconfiggui
...
procedure TForm1.FormCreate(Sender: TObject);
 LoginForm:=TDBConfigForm.Create(self);
 try
   // The test button on dbconfiggui will link to this procedure:
   ... this links the callback in ''dbconfiggui.pas'' to the ConnectionTest function here...
   LoginForm.ConnectionTestCallback:=@ConnectionTest;
...
function TForm1.ConnectionTest(ChosenConfig: TDBConnectionConfig): boolean;
// Callback function that uses the info in dbconfiggui to test a connection
// and return the result of the test to dbconfiggui
var
 // Generic database connector...
 Conn: TSQLConnector;
begin
 result:=false;
 Conn:=TSQLConnector.Create(nil);
 Screen.Cursor:=crHourglass;
 try
   // ...actual connector type is determined by this property.
   // Make sure the ChosenConfig.DBType string matches
   // the connectortype (e.g. see the string in the
   // T*ConnectionDef.TypeName for that connector .
   Conn.ConnectorType:=ChosenConfig.DBType;
   Conn.HostName:=ChosenConfig.DBHost;
   Conn.DatabaseName:=ChosenConfig.DBPath;
   Conn.UserName:=ChosenConfig.DBUser;
   Conn.Password:=ChosenConfig.DBPassword;
   try
     Conn.Open;
     result:=Conn.Connected;
   except
     // Result is already false
   end;
   Conn.Close;
 finally
   Screen.Cursor:=crDefault;
   Conn.Free;
 end;
end;



Tengo esté listado que no consigo compilar que tengo añadir a fpc para que lo compile, no sirve un fpc sdl3.pp

Profesor Nacho Cabanas puede ayudarme?.


22-Aug-2015 00:18
Nacho Cabanes (+83)

Ese fuente no es de SDL (biblioteca de juegos) sino de SQL (lenguaje de acceso a bases de datos).






(No se puede continuar esta discusión porque tiene más de dos meses de antigüedad. Si tienes dudas parecidas, abre un nuevo hilo.)