creazione file.. contenente immagini ..e non solo come fare

[Narciso]

Salve,
mi servirebbe di creare un file che contenga al suo interno dei dati da utilizzare runtime.... ma questi dati sono misti... testo e immagini... e quindi le immagini non hanno una dimnsione fissa....

Stavo pensando ad un file di risorse.. ma il problema è che tale file deve crearlo pure chi non ha il compilatrore... quindi devo per forza agire runtime sia per la creazione che per la lettura...

ho creato un tipo personale che contiene i dati testuali che salvo in un file... come potrei accodarci le immagini e come potrei poi loadarle?

spiego meglio

type
mytype: record
alunno, nome:string[200];
voti:array[1..50] of integer;
fotoalunno:string[200]// percorso dove cercare la foto
end;
type tclasse=record
alunno:array[1..40] of mytype;

var classe: mytype;

per salvare il file .....

var f:file of classe
assignfile (f,'mia classe.fls');
rewrite(f);
write(f,classe);
closefile(f);

per caricare il file .....

var f:file of classe
assignfile (f,'miaclasse.fls');
reset(f);
read(f,classe);
closefile(f);


mi piacerebbe accodare al file 'miaclasse.fls' le immagini e poterle poi riprendere runtime...


Se avete qualche idea e se mi sono spiegato bene.... aspetto risposte....

[Stilgar]

Ciao Narciso,
allora io applico una regolina tutta mia.
1) Formato fisso : File Of Record
2) Formato variabile : FileStream.
3) Testo: ... TStringList è tanto comoda per leggere e scrivere testo che non mi sbatto nemmeno a usare File of Text.

Oppure potrebbe essere interessante la lettura di questo articolo

http://www.gamedev.net/page/resources/_/technical/apis-and-tools/creating-a-pak-file-format-r1991

Ciao

[Narciso]

ALLORA AMMETTIAMO CHE IN UNO STREAM VOGLIA METTERE 4 ( O 40 O QUANTE NE VOGLIO) IMMAGINI E 4 ( O 40 O QUANTE NE VOGLIO)  STRINGHE...... IN MODO TALE DA POTERLE LEGGERE A PIACERE... ( ANCHE TUTTE INSIEME IN MODO SEQUENZIALE)..... COME DOVREI FARE?

[nomorelogic]

nel tuo caso avresti bisogno di salvare i tuoi dati con uno schema preciso, io userei il FileStream.

Per ogni oggetto da salvare:
1) "write" del tipo di oggetto ad esempio come char ('T' = testo, 'B' = bitmap, 'J' = jpeg, 'G' = gif e così via)
2) "write" della dimensione in byte come intero (bigint mi sembra esagerato)
3) "write" di N byte che compongono l'informazione da salvare
questo schema lo dovresti ripetere per ogni cosa che salvi.

Andando a rileggere dovresti rileggere con la stesa sequenza:
1) "read" di 1 char per il tipo
2) "read" di 1 integer per la dimensione
3) "read" di N bytes che è il contenuto.

In questo modo salvi quello che tipare quante volte ti pare.

[Narciso]

Allora.. io ci ho provato.. il codice non da' errori ma non sortisce effetto desiderato.....
se carico lo stream, non appaiono immagini e testo salvato....

creata 1 form con
1 pulsante
1 timage
1 menu per salvare e caricare (sia immagini che stream)
4 dialog (2 per salvare  2 per caricare)



//**************************codice*****************************

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  ExtCtrls, Menus, ExtDlgs;

type

  { TForm1 }

  TForm1 = class(TForm)
    Edit1: TEdit;
    Image1: TImage;
    MainMenu1: TMainMenu;
    MenuItem1: TMenuItem;
    MenuItem2: TMenuItem;
    MenuItem3: TMenuItem;
    MenuItem4: TMenuItem;
    MenuItem6: TMenuItem;
    MenuItem7: TMenuItem;
    OpenDialog1: TOpenDialog;
    OpenPictureDialog1: TOpenPictureDialog;
    SaveDialog1: TSaveDialog;
    SavePictureDialog1: TSavePictureDialog;
    procedure MenuItem3Click(Sender: TObject);
    procedure MenuItem4Click(Sender: TObject);
    procedure MenuItem6Click(Sender: TObject);
    procedure MenuItem7Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.MenuItem6Click(Sender: TObject);
begin
  if openpicturedialog1.execute then

  image1.picture.loadfromfile(openpicturedialog1.filename);

end;

procedure TForm1.MenuItem4Click(Sender: TObject);
var
  f : TFileStream;
  Lung:longint;
  tipo:char;
  bmp:tbitmap;
begin
if savedialog1.Execute then begin
f := TFileStream.Create(savedialog1.FileName, fmCreate);
f.Position := 0;
tipo:='s';//stringa definizione del tipo ridondante perche' prestabilita, ma non si sa mai!
lung:=sizeof(edit1.text);
f.Write(edit1.text,lung);
bmp:=tbitmap.create;
bmp.assign(image1.picture.bitmap);
tipo:='b';//bitmap
lung:=sizeof(bmp);
f.Write(bmp,lung);
f.Free;
bmp.free;
end;
end;

procedure TForm1.MenuItem3Click(Sender: TObject);
var

  f : TFileStream;
  Lung:longint;
  tipo:char;
  bmp:tbitmap;
  s:string;
begin
if opendialog1.Execute then begin
f := TFileStream.Create(opendialog1.FileName, fmOpenReadWrite);
f.Position := 0;
f.read(tipo,sizeof(tipo));
f.read(lung,sizeof(lung));
f.read(s,lung);
bmp:=tbitmap.create;
lung:=sizeof(bmp);
f.read(tipo,sizeof(tipo));
f.read(lung,sizeof(lung));
f.read(bmp,lung);
image1.picture.bitmap.assign(bmp);
edit1.text:=s;
f.Free;
bmp.free;

end;
end;



procedure TForm1.MenuItem7Click(Sender: TObject);
begin
  if savepicturedialog1.execute then
  image1.picture.savetofile(savepicturedialog1.filename);
end;

end.


Che c'e' di sbagliato?
     

[Stilgar]

SizeOf sospetto che restituisca sempre 4 ... o 8 se hai un'architettura a 64 bit ...
Per le stringhe c'è un'altra strada da usare ... o fai un loop tu che scriva ogni singolo carattere o ti affidi al metodo degli stream per la scrittura delle stringhe. In altternativa puoi modificare il codice esistente +o - così:

Codice: [Seleziona]

lung:=sizeof(edit1.text);
f.Write(edit1.text,lung);
....
lung:=sizeof(bmp);
f.Write(bmp,lung);

diventerebbe

Codice: [Seleziona]

  lung:=length(edit1.text);
  f.Write(lung,sizeOf(integer);
  f.Write(edit1.text[1],lung);
...
 bmp.savetoStream(f);

codice non testato, ma scritto a memoria.

[nomorelogic]

f.read(bmp,lung);
[...]
Che c'e' di sbagliato?   

non puoi leggere un componente in questo modo, per fare qualcosa del genere dovresti avere un buffer che punta al primo byte dell'oggetto bitmap e ne devi conoscere anche la dimensione (non dell'immagine, ma dell'intera istanza di TBitmap).
Se vuoi intraprendere questa strada, leggi qua
http://wiki.lazarus.freepascal.org/Streaming_components

In alternativa ho fatto un piccolo esempio per lavorare con un file di risorse fatto in casa.
Una volta compilato il progetto puoi cliccare direttamente su bottone a destra che legge tutte le risorse dal file.

Per farti un tuo file di risorse, cancella "Resource.data" e poi:
1) aggiungi qualche stringa
2) aggiungi 1 immagine (è un esempio, se ne metti più di una in Image1 c'è sempre l'ultima )
3) aggiungi ancora qualche stringa
4) chiudi il programma
5) rilancialo e poi clicca su leggi

E' un progettino semplice ma aiuta a capire come muoversi.

[El Salvador]

Magari non sarà veloce quanto la gestione di file binari, ma non è più semplice zippare le risorse in un unico file zip (magari senza compressione per avere il massimo della velocità) e decomprimere all'avvio del programma in una cartella temporanea del sistema?

[nomorelogic]

si, zippando il tutto è più semplice ma c'è qualche limite e quindi dipende dall'applicazione che si deve realizzare.
Lasciare i file già decompressi in una sottocartella sarebbe ancora più facile ma non è detto che sia la soluzione migliore (si è a rischio smanettoni ad esempio ).

Serializzare le risorse in un file, oltre al vantaggio della velocità, dà l'opportunità di memorizzare molte più informazioni rispetto al dato nudo e crudo. Ad esempio una immagine potrebbe non essere sufficiente, potrebbe essere necessario memorizzare anche Top, Left, Width, Heigth, Stretch ed altro ancora del TBitmap che andrà a contenerla a runtime.

ciao

Edit:
forse Narciso saprà toglierci la curiosità

[Stilgar]

@El Salvador. Quello che narciso sta cercando di fare è una cosa che i videogiochi fanno da un sacco di tempo ...
in più le "stringhe" diventerebbero dei file.

@Narciso ... prova a prendere ispirazione da questo progettino : https://bitbucket.org/cheriff/packlib

[Narciso]

Ringrazio Tutti coloro che hanno risposto... ho risolto anche questo dilemma grazie alle drittte di nomerologic.. quindi a lui un Grazie speciale