Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.12.23;
Скачать: CL | DM;

Вниз

Проблема с потоками   Найти похожие ветки 

 
wolchonok29   (2007-04-10 20:30) [0]

У меня есть просьба: посмотрите код и укажите ошибки или недочетыю.
Есть процедура принятия потока и сохранения его в файл и отображения в
компоненте image. При первой операции проходит все хорошо, но на втором
разе программа выкидывает ошибку.
Клиент и сервер основаны на компонентах TIdTCPClient и TIdTCPSerever. Ниже
приведен код процедуры, которая вызывается клиентом (клиент посылает
команду SCREEN):
procedure TForm1.ServerSCREENCommand(ASender: TIdCommand);
var
Stream:TmemoryStream;
ip,di:string;
begin
Stream:=TmemoryStream.Create;
try
Asender.Thread.Connection.ReadStream(Stream,-1,false);
ip:=Asender.Thread.Connection.Socket.Binding.peerIP;
di:=datetostr(date);
forcedirectories(dellastslash(application.ExeName)+"export\"+ip+"\"+di);
stream.Position:=0;
jpeg:=TJPEGImage.Create;
 try
   jpeg.CompressionQuality := 100; {Default Value}
   jpeg.LoadFromStream(stream);
   bmp := TBitmap.Create;
   try
     bmp.Assign(jpeg);
      image1.Picture.Bitmap:=bmp;
Stream.SaveToFile(dellastslash(application.ExeName)+"export\"+ip+"\"+di+"\"+delpoint(timetostr(time))+".jpg");
         finally
     bmp.Free
   end;
 finally
   jpeg.Free;
   bmp.Free;
 end;
finally
Stream.Free;
end;


 
SlymRO ©   (2007-04-11 05:14) [1]

bmp.Free
  end;
finally
  jpeg.Free;
  bmp.Free;


 
wolchonok29   (2007-04-11 09:52) [2]


>   bmp.Free;

Спасибо, SlymRO, не заметил



Страницы: 1 вся ветка

Текущий архив: 2007.12.23;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.017 c
15-1195840259
me
2007-11-23 20:50
2007.12.23
Найти исполнителя песни


9-1164018658
Ярослав Ерёменко
2006-11-20 13:30
2007.12.23
Алгоритм отрисовки тайлов методом альфа-блендинга


15-1195899179
KilkennyCat
2007-11-24 13:12
2007.12.23
Заключение о профессиях и мечтаниях.


11-1181400464
Vladimir Kladov
2007-06-09 18:47
2007.12.23
Версия 2.66


4-1176447569
Dmitry_177
2007-04-13 10:59
2007.12.23
Перевести SYSTEMTIME в строку