Im Memo text und im Image bild speichern?

[gogiarmani]

Guten Tag,

Ich Programmiere eine Android App wo ich Bilder aus meinem Handy in meine App da zufügen will, Die Oberfläche hab ich erstellt und denn Button über ActionList zu gewiesen was sie zu tun haben, dazu verwende ich eine sQlite Datenbank, jetzt ist meine Frage wie mache ich es das die Bilder in TImage und Text im Memo bleiben? nach dem Neustart der App.

Delphi-Quellcode:

unit milkfz;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdActns,
  FMX.MediaLibrary.Actions, FMX.StdCtrls, FMX.ScrollBox, FMX.Memo,
  System.Actions, FMX.ActnList, FMX.TabControl, FMX.Objects, FMX.Layouts,System.IOUtils,
  FMX.Controls.Presentation, Data.DbxSqlite, Data.FMTBcd, Data.DB, Data.SqlExpr,
  System.Rtti, System.Bindings.Outputs, Fmx.Bind.Editors, Data.Bind.EngExt,
  Fmx.Bind.DBEngExt, Data.Bind.Components, Data.Bind.DBScope;

type
  TForm1 = class(TForm)
    TabControl1: TTabControl;
    home: TTabItem;
    eins: TTabItem;
    ToolBar1: TToolBar;
    GridPanelLayout1: TGridPanelLayout;
    Button1: TButton;
    Image1: TImage;
    ActionList1: TActionList;
    ChangeTabAction1: TChangeTabAction;
    ToolBar2: TToolBar;
    Image2: TImage;
    Memo1: TMemo;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    TakePhotoFromLibraryAction1: TTakePhotoFromLibraryAction;
    ChangeTabAction2: TChangeTabAction;
    KfzConnection: TSQLConnection;
    ItemTable: TSQLDataSet;
    BindSourceDB1: TBindSourceDB;
    BindingsList1: TBindingsList;
    LinkControlToField1: TLinkControlToField;
    procedure TakePhotoFromLibraryAction1DidFinishTaking(Image: TBitmap);
    procedure KfzConnectionBeforeConnect(Sender: TObject);
    procedure KfzConnectionAfterConnect(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.fmx}

procedure TForm1.KfzConnectionAfterConnect(Sender: TObject);
begin
kfzConnection.ExecuteDirect('CREATE TABLE IF NOT EXISTS Item (ShopItem  TEXT NOT NULL)');
end;

procedure TForm1.KfzConnectionBeforeConnect(Sender: TObject);
begin
KfzConnection.Params.Values['ColumnMetadataSupported'] := 'False';
  KfzConnection.Params.Values['Database'] :=
      TPath.Combine(TPath.GetDocumentsPath, 'kfz.s3db');
end;

procedure TForm1.TakePhotoFromLibraryAction1DidFinishTaking(Image: TBitmap);
begin
Image1.Bitmap.Assign(Image);
Image2.Bitmap.Assign(Image);
end;

end.

[Sir Rufo]

Ich würde die Informationen einfach speichern und beim Start der App wieder laden. Hat sich eigentlich bewährt.

[gogiarmani]

Zitat:

Zitat von Sir Rufo (Beitrag 1309859)

Ich würde die Informationen einfach speichern und beim Start der App wieder laden. Hat sich eigentlich bewährt.

Ja das habe ich mir auch schon überlegt, aber wie mach ich das? ich schaffe nicht mal denn Text wo ich im Memo eintrage in die Datenbank zu speichern:(

Die Verbindung habe ich mit Memo und Datenbank hergestellt, und ich kenne nur denn Code:

procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
Memo1.Lines.SaveToStream('bild.png');
end;

Aber irgendwie will er nicht

[gogiarmani]

Danke Schön ;-) hab es herausgefunden, o Mann manchmal ist es so einfach dass man nur schwer denkt! :-D

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
Image1.Bitmap.LoadFromFile('/storage/emulated/0/bild.png');
Image2.Bitmap.LoadFromFile('/storage/emulated/0/bild.png');
Memo1.Lines.LoadFromFile('/storage/emulated/0/text1.txt');
end;


procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
Image2.Bitmap.SaveToFile('/storage/emulated/0/bild.png');
Image2.Bitmap.LoadFromFile('/storage/emulated/0/bild.png');
Memo1.Lines.SaveToFile('/storage/emulated/0/text1.txt');
end;

Aber das mit der Datenbank würde mich trotzdem interessieren, wie bringe ich das alles in meine erstellte Datenbank?