19.04.2010, 19:35
|
|
Новичок
Регистрация: 18.04.2010
Сообщений: 6
С нами:
8455677
Репутация:
0
|
|
Сообщение от МongBa†
Не , конекшен здесь не при чем...
Мемо не слишком то подходит под изображения 
сохраняй сразу в файл...
кстати и в цикле
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);
Фаил создается но там куча мусора, от ответа сервака и каждый символ с новой строчки, походу мой цикл был правильный, как вытянуть жпг рисунок с этого мусора?
|
|
|