Форум: "Начинающим";
Текущий архив: 2006.09.10;
Скачать: [xml.tar.bz2];
Вниз
Осичтка переменной Найти похожие ветки
← →
HELP_ME_PLEASE (2006-08-23 21:35) [0]Это код приема файла. 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;
← →
HELP_ME_PLEASE (2006-08-23 21:37) [1]Извините за ошибки в тексте
← →
Anatoly Podgoretsky © (2006-08-23 22:15) [2]Что то знакомая тема, в прошлый раз она была не несколько сотен постов, в итоге пришли ко мнению, что переменную очистить не возможно, все грязь.
← →
HELP_ME_PLEASE (2006-08-23 22:28) [3]Плохо...
← →
default © (2006-08-23 22:33) [4]"что переменную очистить не возможно, все грязь."
ну если он создаст для этого специальный класс ТШвабра, то надежда есть
← →
Пусик © (2006-08-23 22:40) [5]http://www.delphimaster.ru/cgi-bin/nuts.pl?showpage=14
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.09.10;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.044 c
