Imagenes en archivos.

[Neftali [Germán.Estévez]]

¿Y utlizando Streams?
(1) Cargar en un Stream la imagen.
(2) Guardar el tamaño
(3) Añadir el Texto
(4) Guardar el tamaño
(5) Aplicarle algoritmo de encriptación con key
(6) Guardarlo a disco.

Eso es la teoría.

[cmm07]

tantos MAXIUM ?????????,

[dec]

Hola,

Ya ves, hay personas a las que que no basta con tener doble personalidad.

[MAXIUM]

Gracias, vamoS a probrar.

[Neftali [Germán.Estévez]]

A ver no estoy muy puesto en el tema, pero lo que quería explicar es más o menos esto. Seguro que es optimizable, ya digo que no estoy muy puesto, pero así creo que se entiende mejor:

(1) Poner un TImage en el form, con un bitmap.
(2) POner un memo con un texto.
(3) Ejecutar el código siguiente.

El resultado es un fichero en disco con:

10 dígitos correspondiente al tamaño del memo
10 dígitos correspondientes al tamaño de la imagen
El contenido del memo
El contenido de la imagen

Si lo abrís con un editor hexadecimal se ve perfectamente.
Si antes de guardar se le aplica un algoritmo y listo.

Con los dos tamaños (ocupan cada uno 10 posiciones) se debería poder hacer el paso contrario sin problemas.

Código Delphi [-]
var
  i:Integer;
  s:Int64;
  Str:String;
  buff: array [0..9] of byte;
  f1, F2: TFileStream;
  s1:TMemoryStream;
  buffmemo: array [0..4000] of byte;
  sMemo:Integer;
begin

  f1 := TFileStream.Create('.\I.dat', fmCreate);
  f2 := TFileStream.Create('.\M.dat', fmCreate);
  s1 := TMemoryStream.Create;


  // MEMO
  Memo1.Lines.SaveToStream(f2);
  s := sizeof(f2);
  for i := 0 to Min(4000, Length(Memo1.Lines.TExt)) do begin
    buffmemo[i] := Ord(Memo1.Lines.Text[i + 1]);
  end;
  sMemo := i;
  Str := DupeString('0', 10) + IntToStr(sMemo);
  Str := Copy(Str, Length(Str) - 10 + 1, 10);

  // Escribir Tamaño Memo
  for i := 0 to 9 do begin
    buff[i] := Ord(Str[i + 1]);
  end;
  // Escribimos el tamaño
  f1.WriteBuffer(buff, 10);

  // Imagen
  Image1.Picture.Bitmap.SaveToStream(s1);

  s := s1.Size;
  Str := DupeString('0', 10) + IntToStr(s);
  Str := Copy(Str, Length(Str) - 10 + 1, 10);

  // Escribir Tamaño imagen
  for i := 0 to 9 do begin
    buff[i] := Ord(Str[i + 1]);
  end;
  // Escribimos el tamaño
  f1.WriteBuffer(buff, 10);


  // escribir el memo
  f1.WriteBuffer(buffmemo, sMemo);
  // escribir la imagen
  Image1.Picture.Bitmap.SaveToStream(f1);

  FreeAndNil(s1);
  FreeAndNil(f2);
  FreeAndNil(f1);

[MAXIUM]

Oh! excelentisimo. Gracias Neftali, lo voy a estudiar.

Realizar el proceso inverso no creo que me complique, pero tambien quiero ver como meter 2 imagenes de distinto tamañano en un solo archivo o el memo y la imagen en un solo fichero resultante.

Muchisismas gracias.

[Neftali [Germán.Estévez]]

Empezado por MAXIUM

pero tambien quiero ver como meter 2 imagenes de distinto tamañano en un solo archivo o el memo y la imagen en un solo fichero resultante.

Bueno, no tiene más complicación que copiar un trozo de código de ahí para la segunda imagen o seguir el mismo sistema.
Al principio se guardan los dos tamaños y luego los dos objetos, pero puedes variar esa estructura a tu gusto.

* Guardar número de obtejos, luego los tamaños y luego los objetos.
* Números de objetos y luego tamaño y tipo de cada uno de ellos y al final los objetos
* ...

La combinación que desees.