| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Осичтка переменной [D7, XP]

HELP_ME_PLEASE ©   (2006-08-23 21:35:00) 

Это код приема файла. 1-ий раз принимает, а 2-ой раз нехочет, так как get_buffers "запоминает" количество пакетов, и во 2-ой раз использует предидущее значение. Как єто исправить???  
procedure TForm1.UDPServerUDPRead(Sender: TObject; AData: TStream;
 ABinding: TIdSocketHandle);
var
 str_buf : array[1..20] of Char;
begin
 if first_=true then
 begin
   AData.Read(str_buf,length(str_buf));
   if copy(str_buf,1,10)='count_buf:' then
   get_buffers:=StrToInt(copy(str_buf,11,pos('#',str_buf)-11));
   first_:=false;
   ServerStream:=TFileStream.Create('output.exe',fmCreate);
 end else
 begin
   get_buf_num:=get_buf_num+1;
   ServerStream.Position:=ServerStream.Size;
   ServerStream.CopyFrom(AData,AData.Size);
   UDPServer.Send(host,32323,'a');
   if get_buffers=get_buf_num then
   begin
     //MessageBox(0,'recived','Information',mb_iconinformation+mb_ok);
    ServerStream.Free;
    first_:=true;
   end;
 end;

---

Пусик   (2006-08-23 22:40:00) [1]

http://www.delphimaster.ru/cgi-bin/nuts.pl?showpage=14

---

default   (2006-08-23 22:33:00) [2]

"что переменную очистить не возможно, все грязь."
ну если он создаст для этого специальный класс ТШвабра, то надежда есть

---

HELP_ME_PLEASE   (2006-08-23 22:28:00) [3]

Плохо...

---

Anatoly Podgoretsky   (2006-08-23 22:15:00) [4]

Что то знакомая тема, в прошлый раз она была не несколько сотен постов, в итоге пришли ко мнению, что переменную очистить не возможно, все грязь.

---

HELP_ME_PLEASE   (2006-08-23 21:37:00) [5]

Извините за ошибки в тексте

---

Наверх