преобразование строки в изображение

[Lorden]

Добрый вечер, подскажите нубу у меня возникла вот такая проблема я по сети передаю изображение с помощью сокетов, для приёма использую этот код

procedure TForm1.Writing(Text: string);
begin
if MS.Size < Size then // Если принято байт меньше размера файла, то...
MS.Write(Text[1], Length(Text)); // Записываем в буфер
// Выводим прогресс закачки файла
ProgressBar1.Position := MS.Size*100 div Size;
StatusBar1.SimpleText := 'Принято '+IntToStr(MS.Size)+' из '+IntToStr(Size);
if MS.Size = Size then // Если файл принят, то...
begin
Receive := false; // Переводим клиента в нормальный режим
MS.Position := 0; // Переводим каретку в начало буфера
MS.SaveToFile(name); // Сохраняем файл
ClientSocket1.Socket.SendText('end'); // Посылаем команду "end", то есть файл принят
MS.Free; // Убиваем буфер
StatusBar1.SimpleText := 'Файл принят';
end;
end;

как мне сделать так чтобы вместо сохранения изображения на диск выводить его в Image? благодарю за любую наводку

[veniside]

Image.LoadFromStream(MS);

типа того

[Lorden]

Сообщение от veniside

Image.LoadFromStream(MS);

типа того

спасибо=) вроде что-то как-то заработало=)

[Lorden]

вот возник ещё 1 нубский наверное вопрос=( для сохранения изображения на диск использую функцию:

SendMessage(hWndC,WM_CAP_SAVEDIB,0,longint(pchar('1.bmp')));

а можно ли сделать так чтобы сохранить не на диск а в переменную например B:TBitmap и отобразить в Image?
если сделать так:

b:=TBitmap.Create;
SendMessage(hWndC,WM_CAP_SAVEDIB,0,longint(b));
b.SaveToFile('1.bmp');

то в переменной B толи пусто толи фиг знает что, при сохранении просто изображения нету

[Lorden]

можно ли как нибудь узнать размер переменной Byte?=)

[Sibedir]

функция SizeOf

[Lorden]

а можно ли вообще через функцию

SendMessage(hWndC,WM_CAP_SAVEDIB,0,longint(pchar('1.bmp')));

писать не на диск а в переменную? чёт вообще не пойму как это сделать можно(
хотя сейчас сделал так

SendMessage(hWndC,WM_CAP_SAVEDIB,0,Byte(B));

вроде бы както что-то записывает но как тогда узнать размер переменной B? т.к. когда импользую функцию SizeOF(B) выдаёт ошибку

[Sibedir]

var
  bm: TBitmap;
...
  bm.LoadFromStream (<>); // сохраняем в пямять
  Image1.Picture.Bitmap := bm; // выводим в Image

Можно вообще не создавать отдельной переменной, а сразу и хранить в Image

  Image1.Picture.Bitmap.LoadFromStream (<>);

Ч/з SendMessage ни чё не могу подсказать.