Копирование Файла

@TURBOMAX · Регистрация: 19.04.2009

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

Как скопировать 123.TXT с диска D удаленной машины на мой диск C через ClientSocket и ServerSocket

@АНК · 06.10.2009, 00:12

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

Как скопировать 123.TXT с диска D удаленной машины на мой диск C через ClientSocket и ServerSocket

На стороне клиента

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
void __fastcall TFormClient::SendFileClick(TObject *Sender)
{
  if(OpenDialog1->Execute()) {
    TFileStream *fs = new TFileStream(OpenDialog1->FileName, fmOpenRead);
    unsigned char *buffer = new unsigned char [fs->Size];
    try {
      fs->ReadBuffer(buffer, fs->Size);
      CSocket->SendBuf(buffer, fs->Size);
    }
    __finally {
      delete [] buffer;
      delete fs;
    }
  }
}

На стороне сервера

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
void __fastcall TFormServer::SSocketClientRead(TObject *Sender,
      TCustomWinSocket *Socket)
{
  int count = Socket->ReceiveLength();
  unsigned char *buffer = new unsigned char [count];
  try {
    int read = Socket->ReceiveBuf(buffer, count);
    if(SaveDialog1->Execute()) {
      TFileStream *fs = new TFileStream(SaveDialog1->FileName, fmCreate);
      try {
        fs->WriteBuffer(buffer, read);
      }
      __finally {
        delete fs;
      }
    }  
  }
  __finally {
   delete [] buffer;
  }

@TURBOMAX · 06.10.2009, 15:00 **[ТС]**

Огромное СПАСИБО!!!!!!!!!!

Новые блоги и статьи Все статьи Все блоги /
Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .

@TURBOMAX 1 / 1 / 1 Регистрация: 19.04.2009 Сообщений: 150

	Копирование Файла 05.10.2009, 20:35. Показов 1345. Ответов 2 Метки нет (Все метки) Как скопировать 123.TXT с диска D удаленной машины на мой диск C через ClientSocket и ServerSocket 0

@TURBOMAX 1 / 1 / 1 Регистрация: 19.04.2009 Сообщений: 150
	06.10.2009, 15:00 [ТС]
	Огромное СПАСИБО!!!!!!!!!! 0

Опции темы

Копирование Файла

Решение