Передача файлов

[MaTBeu]

Таким же образом. Потому что сокеты работают не только в интернет. Надо знать только IP адресата.

[Serge_Bliznykov]

и по-идее файл можно передать через сеть, а как? 2 приложения (нижевыложенные) идут через ип...

Вы не поверите, но локальные сети (по крайней мере современные) построены как раз на использовании IP (напишите в вашей ЛВС в командном окошке ping ИмяКомпьютераВашегоДругана
и увидите его IP адрес...

добавлено
MaTBeu, простите, не увидел Ваш пост... иначе бы не писал...

[Lemo]

2Serge_Bliznykov спасибо, за то что указали как получить ип (локальный)...

а как такой получить (не залазя в браузер поиск "Узнать свой ip"), где то же так пишеться...

[Serge_Bliznykov]

а как такой получить (не залазя в браузер поиск "Узнать свой ip")

наберите в коммандной строке:

ipconfig

[Lemo]

На мой взгляд => тема весьма удалася=))
Вылаживаю исходники и екзешки (неплохая тема для поиска юзерам):
Клиент:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ScktComp, sEdit, sSkinManager, sLabel, sButton, Menus,
  CoolTrayIcon, sGauge;

type
  TForm1 = class(TForm)
    ClientSocket1: TClientSocket;
    sLabelFX1: TsLabelFX;
    sSkinManager1: TsSkinManager;
    sEdit1: TsEdit;
    sButton1: TsButton;
    sButton2: TsButton;
    CoolTrayIcon1: TCoolTrayIcon;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    sGauge1: TsGauge;
    procedure ClientSocket1Connect(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);
    procedure sButton1Click(Sender: TObject);
    procedure sButton2Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
  private
    { Private declarations }
    fs: TFileStream;
    Reciving:Boolean;
    DataSize: integer;
      public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


Procedure TForm1.ClientSocket1Connect(Sender: TObject;
  Socket: TCustomWinSocket);
Begin
Socket.SendText('s');
End;
Procedure TForm1.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
Var
s, sl: String;
Begin
s:= Socket.ReceiveText;
If Pos('Ras',S)>0 Then
Begin
fs:=TFileStream.Create(StringReplace(S,'Ras','',[RfReplaceAll]),fmCreate);
end;
if Reciving then
Begin
fs.Write(s[1],length(s));
sGauge1.Progress:=fs.Size;
if fs.Size=DataSize then
Begin
fs.Free;
Reciving:=False;
Application.MessageBox('Поздравляю, Фаил принят', 'Внимание!!!');
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.Write(s[1], length(s));
sGauge1.MaxValue:=DataSize;
End;
End;
procedure TForm1.sButton1Click(Sender: TObject);
begin
ClientSocket1.Address:=sEdit1.Text;
ClientSocket1.Active:=True;
end;

procedure TForm1.sButton2Click(Sender: TObject);
begin
ClientSocket1.Active:=False;
end;

procedure TForm1.N1Click(Sender: TObject);
begin
form1.show;
end;

procedure TForm1.N2Click(Sender: TObject);
begin
Application.Terminate;
end;

End.

Сервер:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ScktComp, StdCtrls, sSkinManager, sButton, Menus, CoolTrayIcon,
  sLabel;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    ServerSocket1: TServerSocket;
    OpenDialog1: TOpenDialog;
    sSkinManager1: TsSkinManager;
    sButton1: TsButton;
    CoolTrayIcon1: TCoolTrayIcon;
    PopupMenu1: TPopupMenu;
    Hfpdt1: TMenuItem;
    N1: TMenuItem;
    sLabelFX1: TsLabelFX;

    procedure ServerSocket1ClientRead(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure sButton1Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure Hfpdt1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

Procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
Var
fs: TFileStream;
Data: TMemoryStream;
Begin
If Socket.ReceiveText = 's' then
Begin
Fs:=TFileStream.Create(Edit1.Text, FmOpenRead);
Try
Fs.Position:=0;
Socket.SendText('Ras'+ExtractFileName(Edit1.Text));
Sleep(100);
Socket.SendText('Size:'+IntToStr(fs.Size)+ #0);
Socket.SendStream(Fs);
Finally
End;
End;
End;
procedure TForm1.sButton1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
Edit1.Text:=OpenDialog1.FileName;
end;

procedure TForm1.N1Click(Sender: TObject);
begin
application.Terminate;
end;

procedure TForm1.Hfpdt1Click(Sender: TObject);
begin
Form1.show;
end;

End.

Весь проект(все исходники) можно скачать тут
Хочю сказать большое спасибо всем учасникам за их толковые обсуждения и разъяснения...
ЗЫ: в дальнейшем буду в теме чата =)

[хомякec]

чеел а можешь еще раз залить пример , чтоб были не только ЕХЕшники))))

[DoDge_VipeR]

чеел а можешь еще раз залить пример , чтоб были не только ЕХЕшники))))

а самому собрать из кода указанного выше вера не позволяет?
тем более что в 2 exe.rar induc