Форум программистов
 
Регистрация на форуме тут, о проблемах пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль

Купить рекламу на форуме 15-35 тыс рублей в месяц

Вернуться   Форум программистов > Delphi программирование > Работа с сетью в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Ответ
 
Опции темы Поиск в этой теме
Старый 29.01.2009, 13:29   #1
SARGE
 
Регистрация: 25.05.2008
Сообщений: 9
По умолчанию

Народ помогите! Не работает отправка пользователю!

отправка клиенту файла

Код:
procedure TForm1.SendFileBtnClick(Sender: TObject);
   var srcfile : TFileStream;
  begin
  i:=(UserListView.Selected.Index);
    {Открываем файл filename}
    srcfile := TFileStream.Create('D:\icons.JPG',fmOpenRead);
    {Посылаем его первому подключенному клиенту}
    ServerSocket.Socket.Connections[i-1].SendStream(send + srcfile);
    {Закрываем файл}
    srcfile.Free;
end;

получение файла от сервера

procedure TForm1.ClientSocketRead(Sender: TObject;
  Socket: TCustomWinSocket);
   var b: Integer;
    bufs: PChar;
      srcs: TFileStream;
 begin
       {Записываем в l размер полученного блока}
   b := Socket.ReceiveLength;
    {Заказываем память для буфера}
   GetMem(bufs,b+1);
    {Записываем в буфер полученный блок}
   Socket.ReceiveBuf(bufs,b);
    {Открываем временный файл для записи}
   srcs := TFileStream.Create('C:\temp.tmp',fmOpenReadWrite);
  {Ставим позицию в конец файла}
    srcs.Seek(0,soFromEnd);
    {Записываем буфер в файл}
    srcs.WriteBuffer(bufs,b);
    {Закрываем файл}
   srcs.Free;
    {Освобождаем память}
    FreeMem(bufs);
end;

Последний раз редактировалось rpy3uH; 29.01.2009 в 14:04.
SARGE вне форума Ответить с цитированием
Ответ
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Отправка Email через программу по умолчанию ScreN Общие вопросы Delphi 7 05.01.2009 23:21
Передача файла через сокет Delphi Unconnected Работа с сетью в Delphi 4 23.12.2008 16:16
Отправка почты (smtp) через proxy dimonbest Работа с сетью в Delphi 9 20.06.2008 14:07
Отправка через SMTP Hottabych Работа с сетью в Delphi 3 09.02.2008 15:18
Отправка e-mail через JavaScript Gambler Общие вопросы по Java, Java SE, Kotlin 1 30.05.2007 14:03