Форум АНТИЧАТ - Показать сообщение отдельно

Не , конекшен здесь не при чем...

Мемо не слишком то подходит под изображения

сохраняй сразу в файл...

кстати и в цикле
repeat
FillChar(Buffer2,SizeOf(Buffer2),0);
d:=recv(Socket1,Buffer2,SizeOf(Buffer2),0);
for i:=1 to d do Data.Add(Buffer2[i]);
until d<=0;
ты вообще нещадно крамсаеш этот несчастный рисунок, разбивая его по строкам, т.е. в тело рисунка автоматом вбиваются #13#10 )

вобщем писал в слепую... пробуй:

var failik:text;

Код:

send(Socket1,Buffer1[1],Length(Buffer1),0);
assignfile(failik,'.\123.jpg');
rewrite(failik);
repeat
   FillChar(Buffer2,SizeOf(Buffer2),0);
   d:=recv(Socket1,Buffer2,SizeOf(Buffer2),0);
   for i:=1 to d do writeln(failik,Buffer2[i]);
until d<=0;
closefile(failik);