Отправка файлов через IdUDPClient/IdUDPServer

@bigl · Регистрация: 02.12.2013

Студворк — интернет-сервис помощи студентам

Я начинающий "программист", столкнулся с такой проблемой: как отправит файл по сети, именно файл!
Я сделал приложения работающее по сети, на dUDPClient/IdUDPServer компонентах, много чего организовал, вот возникла проблемка с отправкой файлов.

C++
1
2
3
4
5
6
7
8
9
10
void __fastcall TForm1::Button6Click(TObject *Sender)
{
        void *P;
    MS->LoadFromFile(text[1]); // text[1] хранит путь к файлу// Загружаем файл в буфер
    Status->Lines->Add("Файлы для отправки: ");
    Status->Lines->Add("file#"+text[1]+"#"+IntToStr(MS->Size)+" байт#");
    MS->Position = 0; // Переводим каретку в начало файла
    IdUDPClient1->SendBuffer(P, MS->Size); // отправляем поток
    MS->Clear();
}

Вот так не отправляется/
Искал по форуму ничего нужного не нашел... если такое уже было то дайте ссылочку плз

@bigl · 25.12.2013, 21:16 **[ТС]**

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
void __fastcall TForm1::IdUDPServer3UDPRead(TIdUDPListenerThread *AThread, TBytes AData,
          TIdSocketHandle *ABinding)
{
 std::auto_ptr<TBytesStream> bs3(new TBytesStream(AData));
 if (name)
     {
       Status->Lines->Add("Server[3]::        Начинаю прием заголовка...");
       TStringStream * SS = new TStringStream();
       SS->CopyFrom(bs3.get(), 0);
       ShowMessage(SS->DataString);
       SaveDialog1->FileName = SS->DataString;  //присваиваем имя принимаемого файла
       delete SS;
       key=true;
       name=false;
     }
     if (!name)
     {
        Status->Lines->Add("Server[3]::        Начинаю прием файлов...");
        TStringStream * SS = new TStringStream();
        SS->CopyFrom(bs3.get(), 0);
        if (SS->DataString!="EndFile")  //если не конец файла то записываем все в поток
        {
          SSS->CopyFrom(bs3.get(), 0);
          delete SS;
        }
        else        //если файл закончился, то сохраняем его
        {
            Status->Lines->Add("Server[3]::        Получили конец файла");
          if (SaveDialog1->Execute())
          {
            SSS->SaveToFile(SaveDialog1->FileName);
            name=true;
            key=false;
            SSS->Clear();
          }
        }
     }
 //  if (key) name=false;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button3Click(TObject *Sender)
{   int k=1;
    if(OpenDialog1->Execute())
 {
   //IdUDPClient1->Host=Edit1->Text;
   char buf[8192];    //типа 8192 - размеб буфера передачи по умолчанию
   TMemoryStream *ms = new TMemoryStream();
   Status->Lines->Add("Client[3]::        Шлем заголовок файла");
   ms->LoadFromFile(OpenDialog1->FileName);  //выбираем нужный файл
   IdUDPClient3->Send(ExtractFileName(OpenDialog1->FileName)); //посылаем имя файла
   ms->Position = 0;
 
   while (ms->Position < ms->Size)
   {
 
      k++;
     DWORD size = (ms->Size - ms->Position > 8192) ? 8192 : ms->Size - ms->Position;
     ms->ReadBuffer(&buf, size);
     TByteDynArray buff;
     buff.Length = 0;
     buff = RawToBytes(&buf, sizeof(buf));
     IdUDPClient3->SendBuffer(buff);  // отправляем поток
     Application->ProcessMessages();
   }
   Status->Lines->Add("Client[3]::        Послано");
   Status->Lines->Add(k);
   delete ms;
   Status->Lines->Add("Client[3]::        Послали конец файла");
   IdUDPClient3->Send("EndFile");  //индикатор конца файла
 }
 
}
//---------------------------------------------------------------------------

Подскажите почему не работает передача файлов? почему не срабатывает SaveDialog?

@bigl · 26.12.2013, 20:22 **[ТС]**

help! а то совсем обзац...

@nick42 · 26.12.2013, 21:47

SaveDialog должен возникнуть только, если name=0, насколько мне удалось понять. Если этого не происходит - значит, там (в name) всегда ненулевое значение. А вообще (в качестве совета), - лучше методом исключения локализовать место возникновения ошибки, а то перелопачивать полсотни строк вашего кода незаинтересованным форумчанам несколько не с руки... .

@bigl · 27.12.2013, 01:05 **[ТС]**

Я совсем запутался, как должна работать пересылка. Вот у меня при отправке send отправляет клиент, на сервере сразу срабатывает чтение. Но при посылке через sendBufer сначало, судя по логам, оправляются все пакеты, а потом не понятно скока пакетов принимаются, хотя должно быть так 1 пакет отправлен, с другой стороны сразу принят. И так с каждым пакетом. Я совсем запутался.....

@Avazart · 27.12.2013, 02:26

Ну тут нет пакетов, не тот уровень как бы, кроме того Indy может буферизировать ...

@bigl · 27.12.2013, 17:36 **[ТС]**

Сообщение от Avazart

Ну тут нет пакетов, не тот уровень как бы, кроме того Indy может буферизировать ...

т.е нет пакетов?

C++
1
2
3
4
5
6
7
8
9
10
11
12
while (ms->Position < ms->Size)
   {
 
      k++;
     DWORD size = (ms->Size - ms->Position > 8192) ? 8192 : ms->Size - ms->Position;
     ms->ReadBuffer(&buf, size);
     TByteDynArray buff;
     buff.Length = 0;
     buff = RawToBytes(&buf, sizeof(buf));
     IdUDPClient3->SendBuffer(buff);  // отправляем поток
     Application->ProcessMessages();
   }

вот тут шлются пакеты размером по 8192
просто в лого выводится 6, т.е 6 раз были отправлены пакеты 5 раз по 8192 и 1 раз то что осталось
У меня есть более удобная заготовка для отправки пакетов, там где указывается и номер пакет и т.д. Но сперва нужно с этим разобраться. Я так понимаю у меня проблема со стороны приема и сохранения в файл. Помогите кто чем может...

@Avazart · 27.12.2013, 20:21

C++
1
2
3
4
5
6
7
8
9
10
11
12
while (ms->Position < ms->Size)
   {
 
      k++;
     DWORD size = (ms->Size - ms->Position > 8192) ? 8192 : ms->Size - ms->Position;
     ms->ReadBuffer(&buf, size);
     TByteDynArray buff;
     buff.Length = 0;
     buff = RawToBytes(&buf, sizeof(buf));
     IdUDPClient3->SendBuffer(buff);  // отправляем поток
     Application->ProcessMessages();
   }

Прдон, а что это за ерунда ?
Я же изначально говорил что принимать надо столько сколько передали (т.е из первого полученного сообщения извлекать размер файла)

@newline · 22.07.2015, 00:14

Господа, что за каша? Я так и не постиг как отправлять/принимать файлы/строки. Прошу плясните на работающем примере. Есть у меня opendialog/savedialog, А так же Indy UDP Server/client. Дайте хоть линк на пример. С TCP Socket-ами разобрался куда быстрее

Новые блоги и статьи Все статьи Все блоги /
Как у меня протекала болезнь zorxor 27.08.2026 Здравствуйте, друзья! Эта запись блога предназначена именно для вас - для моих дорогих друзей, которые знали меня лично. Чтобы ответить на вопрос - а что же со мной произошло на самом деле? Я учился. . .	Нашел вот забавное видео о измерениях. Лучшее что я видел на эту тему kumehtar 26.08.2026 ILETXiw9bMQ Основная суть и тезисы по измерениям: 0D (Нулевое измерение): точка, не имеющая длины, ширины, высоты или объема. Объект не может перемещаться в 0D. 1D (Первое измерение):. . .	[EasyBuilder Pro] Памятка по разработке для панелей Weintek ФедосеевПавел 26.08.2026 Памятка по разработке для панелей Weintek ВВЕДЕНИЕ Ранее, при реализации проектов основное внимание уделял разработке управляющей программы для контроллера, а панели оператора доставалось время. . .	Модель по догадкам anaschu 25.08.2026 Прошло две недели. Я уже рассказывал, как разговаривал с сотрудниками у сортировки и как понял, что главная ветка — не про приёмку, а про отбор. Но тогда я думал, что понял механику. На этой неделе я. . .
Запись в регистр сведений независимо от заполненности табличной части Maks 25.08.2026 Реализация из решения ниже выполнена на нетиповом документе с несколькими табличными частями, разработанного в КА2. Задача: Обеспечить запись документа в регистр сведений независимо от. . .	Ноутбук Альфария kumehtar 24.08.2026 Встретился тут в сети ноутбук Альфария, примарха Альфа-Легиона. Хотя возможно, это ноутбук Омегона, разумеется. Ну как вам?	Мастера простых решений DevAlt 23.08.2026 В сишарп стэках winforms, да и wpf существует сложная система связывания источниках данных и элементов формы(текстовые поля и метки), опирается все это на технологию событий и мета. . .	Цена ошибки DevAlt 23.08.2026 Человек я беспокойный и потому заинтересовался OCaml, в чате форсили функторы модулей как суперфичу. Пытаясь отдуплить концепт, наткнулся на тутор с простым примером. А главный принцип обучения от. . .

@bigl 0 / 0 / 0 Регистрация: 02.12.2013 Сообщений: 22
	26.12.2013, 20:22 [ТС]
	help! а то совсем обзац... 0

@nick42 Практикантроп 4841 / 2726 / 534 Регистрация: 23.09.2011 Сообщений: 5,798
	26.12.2013, 21:47
	SaveDialog должен возникнуть только, если name=0, насколько мне удалось понять. Если этого не происходит - значит, там (в name) всегда ненулевое значение. А вообще (в качестве совета), - лучше методом исключения локализовать место возникновения ошибки, а то перелопачивать полсотни строк вашего кода незаинтересованным форумчанам несколько не с руки... . 0

@bigl 0 / 0 / 0 Регистрация: 02.12.2013 Сообщений: 22
	27.12.2013, 01:05 [ТС]
	Я совсем запутался, как должна работать пересылка. Вот у меня при отправке send отправляет клиент, на сервере сразу срабатывает чтение. Но при посылке через sendBufer сначало, судя по логам, оправляются все пакеты, а потом не понятно скока пакетов принимаются, хотя должно быть так 1 пакет отправлен, с другой стороны сразу принят. И так с каждым пакетом. Я совсем запутался..... 0

@Avazart 8489 / 6156 / 615 Регистрация: 10.12.2010 Сообщений: 28,683 Записей в блоге: 30
	27.12.2013, 02:26
	Ну тут нет пакетов, не тот уровень как бы, кроме того Indy может буферизировать ... 0

@newline 98 / 10 / 0 Регистрация: 21.02.2011 Сообщений: 474
	22.07.2015, 00:14
	Господа, что за каша? Я так и не постиг как отправлять/принимать файлы/строки. Прошу плясните на работающем примере. Есть у меня opendialog/savedialog, А так же Indy UDP Server/client. Дайте хоть линк на пример. С TCP Socket-ами разобрался куда быстрее 0

Опции темы