Ver Mensaje Individual
  #3  
Antiguo 05-09-2012
Avatar de defcon1_es
defcon1_es defcon1_es is offline
Miembro
 
Registrado: mar 2004
Ubicación: Cuenca - España
Posts: 533
Reputación: 21
defcon1_es Va por buen camino
Pues resulta que para XCode sólo existen los .pas de Firemonkey, pero de dbexpress, nada de nada.

Así que si quieres crear una aplicación para iPad con Delphi XE2 + FireMonkey, puedes olvidarte de usar:

- dbexpress
- livebindings (no estoy seguro al 100%)
- DataSnap (no estoy seguro al 100%)

y de cualquier otro componente que no esté disponible para Free Pascal.

Voy a tener que hacer toda la presentación de los datos "a mano",
creando una instancia de la clase "TSQLite" (definida en SQLite3db.pas de Free Pascal)
y realizar la carga de los datos (sentencias SELECT) tal que así:
Código Delphi [-]
procedure TForm1.CargarDatos; 
{$IFDEF FPC} 
var   SQL, Row: String;   
       DB: TSQLite;   
       SL: Classes.TStringList;   
       NewItem: TListBoxItem;
{$ENDIF} 
begin 
{$IFDEF FPC}   
  DB := TSQLite.Create(Varios.DBFileName);    // Get the records back and list them in the memo   
  SL := Classes.TStringList.Create;   
  SQL := 'select * from basedatos';   
  DB.Query(SQL, SL);    
// Eliminar el nombre de las columnas (primera fila)   
  SL.Delete(0);    
  for Row in SL do   
  begin     
    NewItem := TListBoxItem.Create(FishList);     
    NewItem.Text := UnQuoteStr(Row, '"');     
    NewItem.Font.Family := 'Arial';     
    NewItem.Font.Size := 24;     
    FishList.AddObject(NewItem);   
  end;   
  SL.Free;    
  DB.Free; 
{$ENDIF}
end;

Ejemplo: http://www.youtube.com/watch?v=77HYR...feature=relmfu

PD:Espero que esto oriente a todo aquel que tenga pensado hacer aplicaciones para iPad/iPhone con Delphi XE2 + FireMonkey + SQLIte
__________________
Progress Openedge
https://abevoelker.com/progress_open...dered_harmful/


Delphi forever...

Última edición por defcon1_es fecha: 05-09-2012 a las 18:49:34.
Responder Con Cita