Enviar un TImageList por socket
 

Hola a todos les hago una pregunta, he visto que el componente TImageList puede albergar varias imágenes siéndome de utilidad para enviar todo de una sola vez por medio de sockets. Entonces quería saber como hago para grabar el stream en la TImageList destino?. Es esta la mejor forma?

Para ser mas precisos. El código para enviar stream por socket esta en el foro ahora bien como hago para obtener el stream de la ImageList1 y escribirlo o cargarlo en la ImageList2. Gracias

Un TImageList es un TComponentt.

Se supone que puedes guardar un componente en un Stream y en disco usando un código similar a este:

Código Delphi [-]
var
  ms : TMemoryStream;
begin
  ms := TMemoryStream.Create;
  try
    ms.WriteComponent(ImageList1) ;
    ms.Position := 0;

    ms.SaveToFile('c:\stream');
  finally
    ms.Free;
  end;

De forma similar tienes los métodos análogos para recuperarlo de disco y volver a "volcarlo" a un componente.

Haz alguna prueba a ver qué tal.
La técnica es similar a la que se explica aquí para clonar un form.

Comandant.

Revisa este link:
Revisa este código:

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ImgList, StdCtrls, Buttons, ToolWin, ComCtrls;

type
  TForm1 = class(TForm)
    ImageList1: TImageList;
    Button1: TButton;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
   ImageList2 : TImageList;
begin
   ImageList2 := TImageList.Create(nil);
   try
      WriteComponentResFile('ImageList.dat', ImageList1);
      ReadComponentResFile('ImageList.dat', ImageList2);
   except
      ImageList2.Free;
      MessageDlg('Error al Procesar el Archivo ImageList.Dat', mtinformation, [mbok], 0);
      exit;
   end;
   Toolbar1.Images := ImageList2;
   Toolbar1.Buttons[0].ImageIndex := 0;
   Toolbar1.Buttons[1].ImageIndex := 1;
   Toolbar1.Buttons[2].ImageIndex := 2;
end;

end.

El código anterior copia todas las imágenes de un TImageList a otro TImageList y asigna estas a un TToolbar.

Espero sea útil :)

Nelson.