Передача файла через TServerSocket и TClientSocket

[Vanya]

Возникла потребность организовать передачу файлов в локалке
Как это можно реализовать через TServerSocket и TClientSocket?
Напишите по подробнее а то я только начинаю изучать програмирование и не все понимаю
Спасибо

[ZhekON]

у мну такая же проблема) токо мне надо передать строку(сообщение) используя айпишник другого компа или чот в етом роде) я сам ещё непонимаю как ето организоватЬ) вопрос вродебы не сложный но для новичка...

[Vanya]

ZhekON посмотри в блоге там это есть
http://pblog.ru/?p=91

[Terran]

Вот пример передачи файла :

Отправка файлов.rar

[BOBAH13]

Работу с потоками учим... идем учим Api + WinSock ))) После изучения и понимания оргиназовываем свой поток от TThread переопределив процедуру Execute; в которой пишем на блокирующих сокетах прием данных из сокета при помощи recv и последующей записи куда вам угодно полученного буфера... после получения ошибки, пустого буфера или окончания получения файла закрываем соединение удаляем все буфера радуемся ))) сообщяем по событию из потока главному потоку об окончании процедуры.... Вкратце

[Vanya]

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

Работу с потоками учим... идем учим Api + WinSock )))

Есть ссылки на учебники???
Чем тебе не нравиться ServerSocket и ClientSocket?

[BOBAH13]

Начнем с того, на чем основаны TServer~ClientSocket ? WinSock... Учебник самый лучший по Api WinSock -> MSDN да и полно материала в сети сетевому программированию. Ненравиться, потому что контроль над всем процессом скрыт от моих глаз в недрах компонента, а на более низком уровне можно обработать больше информации и таким образом избежать дальнейших проблем ( освобождения ресурсов, закрытие сокета и т.п. )

[Vanya]

Вован13 Ты не мог бы выложить исходники передачи файлов с использованием WinSock

[BOBAH13]

Ну вот написал сейчас. Может и ошибка где попадется ))

{ Описание класса }

  TSockMan = class(TThread)
  private
    FSocket: TSocket;
    FSended: Integer;
    FBuffer: Pointer;
    FBufLen: Integer;
    FLastError: Integer;
    FOnFinished: TNotifyEvent;
    FOnError: TNotifyEvent;

    procedure DoFinished;
    procedure DoError;
  protected
    procedure Execute; override;
  public
    constructor Create;
    destructor Destroy; override;

    procedure Send(Socket: TSocket; var Buf; Count: Integer);

    property OnError: TNotifyEvent read FOnError write FOnError;
    property OnFinished: TNotifyEvent read FOnFinished write FOnFinished;
    property LastError: Integer read FLastError;
  end;

implementation

{ TSockMan }

constructor TSockMan.Create;
begin
  inherited Create(True);
  FSocket := INVALID_SOCKET;
end;

destructor TSockMan.Destroy;
begin
  inherited Destroy;
end;

procedure TSockMan.DoFinished;
begin
  if Assigned(FOnFinished) then
    FOnFinished(Self);
end;

procedure TSockMan.DoError;
begin
  if Assigned(FOnError) then
    FOnError(Self);
end;

procedure TSockMan.Send(Socket: TSocket; var Buf; Count: Integer);
begin
  FSocket := Socket;
  FBuffer := @Buf;
  FBufLen := Count;
  FSended := 0;
  Resume;
end;

procedure TSockMan.Execute;
var
  FDSet: TFDSet;
  TimeVal: TTimeVal;
  Len: Integer;
begin
  FreeOnTerminate := True;
  while not Terminated and (FSocket <> INVALID_SOCKET) do
  begin
    FD_ZERO(FDSet);
    FD_SET(FSocket, FDSet);
    TimeVal.tv_sec := 0;
    TimeVal.tv_usec := 10;
    if (select(0, @FDSet, NIL, NIL, @TimeVal) < 1) then
    begin
      while True do
      begin
        Len := WinSock.send(FSocket, Pointer(Integer(FBuffer) + FSended)^,
          FBufLen - FSended, 0);
        if Len = SOCKET_ERROR then
        begin
          FLastError := WSAGetLastError;
          Synchronize(DoError);
          Break;
        end;
        inc(FSended, Len);
      end;
    end;
    if (FSended = FBufLen) then
    begin
      Synchronize(DoFinished);
      Break;
    end;
  end;
end;

Использование

{
Допутсим Buffer переменная содержащая данные отсылаемые
Len переменная содержащая размер отсылаемых данных
S переменная - индефикатор сокета куда шлем все данные
OnFinished - процедура обработчик окончания отправки данных сокету
OnError - процедура обработчик ошибки во время отправки данных сокету
По событию OnError смотрим LastError следуя из 
procedure OnError(Sender: TObject); 
где LastError = TSockMan(Self).LastError; 
}
var
  SockMan: TSockMan;
begin
  SockMan := TSockMan.Create;
  // здесь если надо, присваиваем обработчики 
  // даннаого класса TSockMan
  SockMan.Send(S, Buffer, Len);
end;

незачто

[Vanya]

А принимать как???Я понял что так:
Создаеш поток TThread
В Execut запускаеш бесконечный цикл в котором принимаеш файл recv
Тогда у меня такой вопрос как узнать размер пришедшего файла что бы выделить под него необходимое место???