Вопрос TClientSoket

[Crivel]

Можно ли чтобы на сервере был файл 1.txt и программа считывала его содержимое?

[Terran]

Конечно можно, вот код:

//Сервер
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ScktComp;

type
  TForm1 = class(TForm)
    ServerSocket1: TServerSocket;
    procedure ServerSocket1ClientRead(Sender: TObject;
      Socket: TCustomWinSocket);
  private
    { Private declarations }
  public
    { Public declarations }
    fs: TFileStream;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
  var
  S:string;
  begin
  s:=socket.ReceiveText;
If S='Log' Then
Begin
If FileExists('1.txt') Then
Begin
Fs:=TFileStream.Create('1.txt', FmOpenRead);
Try
Fs.Position:=0;
Socket.SendText('Size:'+IntToStr(Fs.Size)+ #0);
Socket.SendStream(Fs);
Finally
End;
End;
End;
End;
end.
--------------------------------
//Клиент
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ScktComp;

type
  TForm1 = class(TForm)
    ClientSocket1: TClientSocket;
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);
  private
    { Private declarations }
    Fs: TMemoryStream;
    Reciving: Boolean;
    DataSize: Integer;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
ClientSocket1.Socket.SendText('Log');
end;
procedure TForm1.ClientSocket1Read(Sender: TObject;
Socket: TCustomWinSocket);   
Var
S, Sl: String;
Data: String;
Begin
S:=Socket.ReceiveText;
If Reciving Then
Begin
Fs.Write(S[1], Length(S));
If Fs.Size=DataSize Then
Begin
Reciving:=False;
Fs.Position:=0;
Try
memo1.Lines.LoadFromStream(fs);
Finally
fs.Free
End;
End;
Exit;
End;
If Copy(S, 1, 5)='Size:' Then
Begin
Sl:=Copy(S, 6, Pos(#0, S)-6);
DataSize:=StrToInt(Sl);
Delete(S, 1, Pos(#0, S));
Reciving:=True;
Fs:=TMemoryStream.Create;
FS.SaveToStream(FS);
Fs.Write(S[1], Length(S));
End;
End;
end.

[Crivel]

Щас попробую

[Terran]

Всё, привёл код в порядок. Вы уж извините что на скорую руку немного не дописал.

[Crivel]

Извините, чайник в этом компоненте. Куда сервер запустить? то есть я создам сервер, скомпилирую, а программу отправлю на сервер?

[Terran]

Я думаю что бы много не расписывать, вот исходник, думаю будет понятнее:

сервер.rar

[Crivel]

Terran, спасибо за ответ, но я наверно не совсем правильно задал вопрос. Этот файл находится не на другом компьютере, а он находится по такому путю - http//word-exchange.3dn.ru/1.txt

[Crivel]

Ну пожалуйста помогите, мне это до завтра надо сделать!

[Terran]

Этот файл находится не на другом компьютере, а он находится по такому путю - http//word-exchange.3dn.ru/1.txt

Я в этом направлении не работал, так что вы уж извините, но я помочь тут не смогу...

[Crivel]

Ну кто нибудь знает?