VPF::Передача файла через UDP Indy - Форум программистов

Mixasik

Дата 3.12.2006, 12:10 (ссылка)

(нет голосов)

Загрузка ...

Little Delphi monstr

Профиль
Группа: Участник
Сообщений: 195
Регистрация: 4.10.2006
Где: Волгоград

Репутация: нет
Всего: нет

Подскажите пожалуста, что я делаю неправильно, ато первый раз с этим столкунулся...
Вот процедура принемает данные

Код


procedure TMainForm.FileSrvUDPRead(Sender: TObject; AData: TStream;
  ABinding: TIdSocketHandle);
Var cmd:TStringStream;fileR:TFileStream;
begin
 If not received then
  Begin
   cmd:=TStringStream.Create('');
   cmd.CopyFrom(Adata,Adata.Size);
   ReceiveFile:=cmd.DataString;
   Received:=true;
  End;
 If (received)and(FileSz=0) then
  Begin
   cmd:=TStringStream.Create('');
   cmd.CopyFrom(Adata,Adata.Size);
   FileSz:=LongWord(cmd.DataString);
  End;
 If (received)and(FileSz>0) then
  Begin
   FileR:=TFileStream.Create(ReceiveFile,fmCreate);
   FileR.CopyFrom(AData,Adata.Size);
  End;
 If FileR.Size=FileSz then
  Begin
   ShowMessage('Файл успешно принят');
   FileR.Free;
  End; 
end;

А вот процедура передающая файл

Код


procedure TMainForm.SendFileBtnClick(Sender: TObject);
Var FileD:TOpendialog;FileS:TFileStream;
begin
 FileD:=TOpenDialog.Create(SendFileBtn);
 If (FileD.Execute)and(FileD.FileName<>'') then
     SendFile:=FileD.FileName else
      Begin
       ShowMessage('Файл не выбран');exit;
      end;
 If fileexists(SendFile) then
  begin
   FileClient.Send(SendFile);
      Sended:=true;
  End else
  Begin
   ShowMessage('Файл не существует');
   Sended:=false;
   exit;
  End;
 FileS:=TFileStream.Create(SendFile,fmOpenRead);
 If (sended)and(FileSz=0) then
  Begin
   FileSz:=FileS.Size;
   FileClient.Send(string(FileSz));
  End;
 If (sended)and(FileSz>0) then
  Begin
   FileClient.SendBuffer(FileS,FileS.Size);
  end;
 FileS.Free;
end;

При передачи в итоги выдается ошибка....
Может ошибка случаться из-за того, что все происходит в localhost или процедуры написаны неверно?

Snowy

Дата 4.12.2006, 12:40 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484

ндя...
Да тут вообще всё совсем неправильно.

Mixasik

Дата 4.12.2006, 15:11 (ссылка)

(нет голосов)

Загрузка ...

Little Delphi monstr

Профиль
Группа: Участник
Сообщений: 195
Регистрация: 4.10.2006
Где: Волгоград

Репутация: нет
Всего: нет

Цитата(Snowy @ 4.12.2006, 12:40

)

Да тут вообще всё совсем неправильно.

Ну может пример покажите?)

Matematik

Дата 4.12.2006, 15:49 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1027
Регистрация: 11.3.2006

Репутация: 24
Всего: 50

UDP не гарантирует что все пакеты придут и в правильной последовательность

Mixasik

Дата 4.12.2006, 16:09 (ссылка)

(нет голосов)

Загрузка ...

Little Delphi monstr

Профиль
Группа: Участник
Сообщений: 195
Регистрация: 4.10.2006
Где: Волгоград

Репутация: нет
Всего: нет

Ну можно же как-нибудь проверку в ручную сделать?
А хотябы пример отправки файлов с помощью TCP напишите, чат я написал вроде нормально работает, а вот передачу файлов не знаю как реализовать...

Matematik

Дата 4.12.2006, 16:11 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1027
Регистрация: 11.3.2006

Репутация: 24
Всего: 50

Ты не первый пытаешься файл передать.
Поиск по форуму поможет.

Rodman

Дата 4.12.2006, 16:23 (ссылка)

(нет голосов)

Загрузка ...

CIO

Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: нет
Всего: 122

Mixasik, посмотри тут

но если хочешь что бы пакет подтвеждал свое прибытие - используй TIdTCP..

--------------------

CRM с функцией АвтоОбзвона

Лотереи мира

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »