[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Модератор форума: Ledi_Gaga  
Форум » Программирование » Delphi/Pascal » Передача файлов по локальной сети Delphi (Компоненты IndyTcpClient и IndyTcpServer; проткол UDP)
Передача файлов по локальной сети Delphi
_Hz_Дата: Вторник, 19.01.2010, 08:54 | Сообщение # 1
Генералиссимус
Группа: Администраторы
Сообщений: 179
Награды: 11
Репутация: 7
Статус: Offline
Программа имеет клиент-серверную архитектуру





Доступно только для пользователей


 
_Hz_Дата: Вторник, 19.01.2010, 08:59 | Сообщение # 2
Генералиссимус
Группа: Администраторы
Сообщений: 179
Награды: 11
Репутация: 7
Статус: Offline
Еще один вариант передачи файлов по локальной сети посредством протокола UDP





Доступно только для пользователей


 
TerminatorДата: Понедельник, 25.01.2010, 11:30 | Сообщение # 3
Лейтенант
Группа: Друзья
Сообщений: 10
Награды: 2
Репутация: 1000
Статус: Offline
Свои курсачи скинул? Нати мол пользуйтесь. А где твой файловый менеджер? Он случаем по сетке не работает?

Аццкий Гага-терминатор
 
_Hz_Дата: Понедельник, 25.01.2010, 12:31 | Сообщение # 4
Генералиссимус
Группа: Администраторы
Сообщений: 179
Награды: 11
Репутация: 7
Статус: Offline
нет)

 
imperatorДата: Воскресенье, 28.02.2010, 02:21 | Сообщение # 5
Рядовой
Группа: Пользователи
Сообщений: 2
Награды: 0
Репутация: 0
Статус: Offline
На Delphi 2010 при открытие проекта вылетает окно

Indy clien

Error Reading Form: 'Form"!'
Error reading IdTCPCIientl.MaxLineAction: Property MaxLineAction does not exist. Ignore the error and continue? NOTE: Ignoring the error may cause components to be deleted or property values to be lost.

unit client;
При компиляции появляется ошибка на

Code
IdTCPClient1.ReadBuffer(FileName^, 256);

[DCC Error] dient.pas(73): E2003 Undeclared identifier: 'ReadBuffer'

Code
IdTCPClient1.ReadBuffer(FileSize, SizeOf(FileSize));

[DCC Error] dient.pas(74): E2003 Undeclared identifier: 'ReadBuffer'
Code
IdTCPClient1.ReadStream(FS, FileSize);

[DCC Error] dient.pas(78): E2003 Undeclared identifier: 'ReadStream'

Indy serv

Error Reading Form: 'Form1'
Error reading IdTCPServerl.CommandHandlers: Property CommandHandlers does not exist. Ignore the error and continue? NOTE: Ignoring the error may cause components to be deleted or property values to be lost.

Error Reading Form: 'Form1'
Error reading IdTCPServerl.Greeting.NumericCode: Property
Greeting.NumericCode does not exist. Ignore the error and continue? NOTE:
Ignoring the error may cause components to be deleted or property values to be lost.

Error Reading Form: 'Form1'
Error reading IdTCPServerl.MaxConnectionReply.NumericCode: Property MaxConnectionReply.NumericCode does not exist. Ignore the error and continue? NOTE: Ignoring the error may cause components to be deleted or property values to be lost.

Error Reading Form: 'Form1'
Error reading IdTCPServerl.ReplyExceptionCode: Property
ReplyExceptionCode does not exist. Ignore the error and continue? NOTE:
Ignoring the error may cause components to be deleted or property values to be lost.

Error Reading Form: 'Forml'
Error reading IdTCPServerl.ReplyTexts: Property ReplyTexts does not exist.
Ignore the error and continue? NOTE: Ignoring the error may cause components to be deleted or property values to be lost.

Error Reading Form: 'Form1'
Error reading IdTCPServerl.ReplyUnknownCommand.NumericCode: Property ReplyUnknownCommand. NumericCode does not exist. Ignore the error and continue? NOTE: Ignoring the error may cause components to be deleted or property values to be lost.

unit server;

Code
procedure IdTCPServer1Connect(AThread: TIdPeerThread);

[DCC Error] server.pas(27): E2003 Undedared identifier: TldPeerThread'

Как запустить этот проект на Delphi 2010 ?

При запкске UDP_File_transfer не каких игноров не выскакивает но при компиляции возникает ошибка на строке

Client

unit UnitClientTrsFl

Code
ThreadUdp.OnSendBufferUdp:=IdUDPClient.SendBuffer;

[DCC Error] UnitClientTrsFl.pas(69): E2009 Incompatible types: 'Parameter lists differ'

Code
ThreadUdp.OnSendBufferUdp:=IdUDPClient.SendBuffer;

[DCC Error] UnitClientTrsFl.pas(247): E2009 Incompatible types: 'Parameter lists differ'

Server

unit UnitServerTrsFl;

Code
idUDPServer.OnUDPRead:=UDPRead;

[DCC Error] UnitServerTrsFl.pas(75): E2010 Incompatible types: TldUDPListenerThread' and TObject'
Подскажите как запустить этот проект на Delphi 2010 ?
 
_Hz_Дата: Воскресенье, 28.02.2010, 12:53 | Сообщение # 6
Генералиссимус
Группа: Администраторы
Сообщений: 179
Награды: 11
Репутация: 7
Статус: Offline
IdTCPClient у вас присутствует в компонентах Delphi 2010 ? В 2010 немного другой принцип работы с некоторыми компонентами. Попробуйте к примеру поставить Delphi 7 на виртуальную машину и запустить проект там.

 
imperatorДата: Воскресенье, 28.02.2010, 16:48 | Сообщение # 7
Рядовой
Группа: Пользователи
Сообщений: 2
Награды: 0
Репутация: 0
Статус: Offline
У меня присутствует следующие закладки с компонентами Indy
Indy Clients
Indy Servers
Indy I/O Handlers
Indy Intercepts
Indy Misc

Соответственно в закладке Indy Clients есть и компоненты
IdTCPClient1 и IdUDPClient1

Я думаю что в Delphi 7 эти проекты скомпилируются, но мне надо в Delphi 2010,
так как в ней немного другой принцип работы с этими компонентами.
По этому и хотелось бы запустить эти проекты именно в Delphi 2010.

 
Призрак_сайтаДата: Воскресенье, 28.02.2010, 17:07 | Сообщение # 8
Сержант
Группа: Друзья
Сообщений: 8
Награды: 0
Репутация: 9
Статус: Offline
2010 вышла недавно. Попробуй поиграть с теми методами, на которые он ругается. Например, IdTCPClient1.ReadBuffer(FileName^, 256); Чтение буфера может быть реализовано немного по-другому. Воспользуйся синтаксическим помощником.

 
_Hz_Дата: Четверг, 29.04.2010, 16:55 | Сообщение # 9
Генералиссимус
Группа: Администраторы
Сообщений: 179
Награды: 11
Репутация: 7
Статус: Offline
Представляю вам еще один вариант программы для передачи файлов по локальной сети.

Доступно только для пользователей


 
Форум » Программирование » Delphi/Pascal » Передача файлов по локальной сети Delphi (Компоненты IndyTcpClient и IndyTcpServer; проткол UDP)
  • Страница 1 из 1
  • 1
Поиск: