Mobile: Wie können dem ImageViewer1 verschiedene .jpgs zugewiesen werden?

[Sir Rufo]

Zitat von Sel2012:

".loadfromfile" funktioniert im Delphi-Beispiel nur in Kombination mit "OpenDialog": Image1.Bitmap.LoadFromFile(OpenDialog1.FileName);

Und warum wohl? Hast du dir im Debugger schon einmal angeschaut, was der OpenDialog als Dateinamen zurückliefert?

Kleiner Wink mit dem Zaunpfahl:

Wenn ich dir sage: "Hol mir mal das Auto!" was wäre deine spontane Reaktion darauf (abgesehen von "Hols dir doch selber!")?

Etwa: "Welches Auto und wo steht das Auto denn?"

Genau diese Problem hat TBitmap.LoadFromFile auch, wenn du dem einfach nur 'Biene.jpg' gibst.

[Sel2012]

Zitat von Sir Rufo:

Zitat von Sel2012:

".loadfromfile" funktioniert im Delphi-Beispiel nur in Kombination mit "OpenDialog": Image1.Bitmap.LoadFromFile(OpenDialog1.FileName);

Und warum wohl? Hast du dir im Debugger schon einmal angeschaut, was der OpenDialog als Dateinamen zurückliefert?

Kleiner Wink mit dem Zaunpfahl:

Wenn ich dir sage: "Hol mir mal das Auto!" was wäre deine spontane Reaktion darauf (abgesehen von "Hols dir doch selber!")?

Etwa: "Welches Auto und wo steht das Auto denn?"

Genau diese Problem hat TBitmap.LoadFromFile auch, wenn du dem einfach nur 'Biene.jpg' gibst.

Danke für die Antwort. Die Biene liegt im Hauptverzeichnis, also im selben Ordner. Im Mobile kann ich ein OpenDialog gar nicht
in der Form anlegen, jedenfalls optisch nicht erkennbar; ganz anders im FireMonkey

[Sir Rufo]

Delphi-Quellcode:

ImageViewer1.Bitmap.LoadFromFile( 
  TPath.Combine( 
    TPath.GetHomePath, // oder welcher Pfad auch immer
    'Biene.jpg' ) );

Ja, wenn man nur irgendwie so eine Form anlegen könnte mit so einen OpenDialog drauf, dann könnte man ja sehen, was da so im Prinzip herauskommt (eine komplette Pfadangabe) ... aber das muss wohl erst noch erfunden werden

[Sel2012]

[QUOTE=Sir Rufo;1320306]

Delphi-Quellcode:

ImageViewer1.Bitmap.LoadFromFile( 
  TPath.Combine( 
    TPath.GetHomePath, // oder welcher Pfad auch immer
    'Biene.jpg' ) );

Hallo Sir Rufo,
danke für die nette Idee. Mein PC/Compiler akzeptiert nur folgende Zeile:
ImageViewer1.Bitmap.LoadFromFile(System.IOUtils.TPath.Combine(System.IOUtils.TPath.GetHomePath,'boule.jpg' ) );
Wobei ich hoffte, den gewünschten Bildwechsel zu sehen. Ich hatte die jpgs auch in die Bereitstellung geladen.
Aber: Pustekuchen. Es bleibt bei der Anzeige des im Objektinspektor / Bitmap-Editor erzeugten "Bildes".
Irgendwie erscheint es mir auch logisch. In VCL wurden die jpgs im "Klartext" mit der exe übertragen. Das Prinzip gilt für die Apps nicht, sondern jedes Image bekommt individuell "sein" jpg über den Bitmap-Editor eingebaut. Dahinter scheint ein Umwandlungsprogramm zu stecken. Deshalb kann LoadFromFile kein jpg zum ImageViewer laden. An das neue Bitmap komme ich aber auch nicht isoliert heran, sodass ich auch keine austauschen kann.
Bleibt mein Problem, wie ich aus jpg ein Bitmap mache (unter FireMonkeyMobile).

[mm1256]

Zitat von Sel2012:

Bleibt mein Problem, wie ich aus jpg ein Bitmap mache (unter FireMonkeyMobile).

Und was findet Tante Google dazu: "delphi jpg in bitmap"

[borstenei]

Ich verstehe nicht das Problem,
in meiner AndroidApp lade ich zum Start alle meine Bildernamen aus dem FotoOrdner in eine ListBox und beim Klick in die ListBox
lasse ich mir das Bild in einem anderen Tab als Vorschau anzeigen.Dazu reichen 2 Zeilen.

Delphi-Quellcode:

  Image1.Bitmap.LoadFromFile('/storage/emulated/0/DCIM/camera/' +  ListBox1.Selected.Text);
  TabControl1.TabIndex := 1;

...und meine KameraBilder sind Jpg's

[Sir Rufo]

Zitat von borstenei:

Ich verstehe nicht das Problem,
in meiner AndroidApp lade ich zum Start alle meine Bildernamen aus dem FotoOrdner in eine ListBox und beim Klick in die ListBox
lasse ich mir das Bild in einem anderen Tab als Vorschau anzeigen.Dazu reichen 2 Zeilen.

Delphi-Quellcode:

  Image1.Bitmap.LoadFromFile('/storage/emulated/0/DCIM/camera/' +  ListBox1.Selected.Text);
  TabControl1.TabIndex := 1;

...und meine KameraBilder sind Jpg's

Kinderspiel, du verwendest ja auch - korrekterweise - die konkrete/absolute Pfadangabe

[Sel2012]

Zitat von borstenei:

Ich verstehe nicht das Problem,
in meiner AndroidApp lade ich zum Start alle meine Bildernamen aus dem FotoOrdner in eine ListBox und beim Klick in die ListBox
lasse ich mir das Bild in einem anderen Tab als Vorschau anzeigen.Dazu reichen 2 Zeilen.

Delphi-Quellcode:

  Image1.Bitmap.LoadFromFile('/storage/emulated/0/DCIM/camera/' +  ListBox1.Selected.Text);
  TabControl1.TabIndex := 1;

...und meine KameraBilder sind Jpg's

Und weil es jpgs sind, scheint es doch ein Problem zu sein - jedenfalls bei mir. Der aufmerksame Leser hat schon festgestellt, das Sir Rufos Vorschlag mit jpgs nicht klappte.
Auch Olli73 schlägt Image1.Bitmap.LoadFromFile('MeineJpegDateiInklusiveVollständigemPfad.jpg'); vor.
Das gibt mir doch zu denken. Deshalb hier meine (nicht funktionierende) Version.

Delphi-Quellcode:

unit Unit3;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.ListBox,
  FMX.Layouts, FMX.StdCtrls, FMX.Objects, FMX.TabControl;

type
  TForm3 = class(TForm)
    Image1: TImage;
    Button1: TButton;
    ListBox1: TListBox;
    ListBoxItem1: TListBoxItem;
    ListBoxItem2: TListBoxItem;
    ListBoxItem3: TListBoxItem;
    ListBoxItem4: TListBoxItem;
    TabControl1: TTabControl;
    procedure Button1Click(Sender: TObject);

  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form3: TForm3;

implementation

{$R *.fmx}

procedure TForm3.Button1Click(Sender: TObject);
begin
    Image1.Bitmap:=TBitmap.create;
  Image1.Bitmap.LoadFromFile('C:\Users\u\Pictures\Goethe\' + ListBox1.Selected.Text);
  TabControl1.TabIndex := 1;
end;

end.

Findet jemand den Fehler?

[Sel2012]

Zitat von mm1256:

Zitat von Sel2012:

Bleibt mein Problem, wie ich aus jpg ein Bitmap mache (unter FireMonkeyMobile).

Und was findet Tante Google dazu: "delphi jpg in bitmap"

Leider nichts - soweit meine sehr umfangreiche Recherche das beurteilen lässt. Delphi sagt nichts über die mögliche Anwendung in FMX aus. 'TJPEGImage' z.B. als Programmiertipp ist wohl untauglich.
Nicht hinter jeder Frage steht ein fauler und bequemer Anfänger, der sich mit fremden Federn schmücken will. Aber konkrete Tipps wären nett.

[Olli73]

Du kannst mit

Code:

Image1.Bitmap.LoadFromFile('MeineJpegDateiInklusiveVollständigemPfad.jpg');

die Datei laden. Und ja, Delphi erkennt, dass es eine JPEG-Datei ist und wandelt sie automatisch in die benötigte Bitmap um.

Du musst natürlich sicherstellen, dass "MeineJpegDateiInklusiveVollständigemPfad.jpg" auf dem Gerät vorhanden ist. Das kannst du mit

Code:

FileExists('MeineJpegDateiInklusiveVollständigemPfad.jpg') ;

vorher prüfen.