[AlexHaos]

подскажи плиз синтаксис функции assignfile при этом, чтобы путь к файлу начнался с ip

заранее спасибо

[moo2k]

Это возможно, но зачем тебе париться с этим. Если тебе надо сохранить файл в веб, то делай так (используя сокеты):

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119

unit Unit1;   interface   uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,   Dialogs, ScktComp, ExtCtrls, StdCtrls;   type   TForm1 = class(TForm)     Image1: TImage;     Image2: TImage;     ClientSocket1: TClientSocket;     ServerSocket1: TServerSocket;     Button1: TButton;     procedure Image1Click(Sender: TObject);     procedure FormCreate(Sender: TObject);     procedure ClientSocket1Connect(Sender: TObject;     Socket: TCustomWinSocket);     procedure ServerSocket1ClientRead(Sender: TObject;     Socket: TCustomWinSocket);     procedure ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);   private     { Private declarations }     Reciving: boolean;     DataSize: integer;     Data: TMemoryStream;   public     { Public declarations } end;   var   Form1: TForm1;   implementation {$R *.DFM}   procedure TForm1.Image1Click(Sender: TObject); begin   // Это процедура для открытия сокета на ПРИЁМ (RECEIVING).   // Button1.Click is this procedure as well.   ClientSocket1.Active:= true; end;   procedure TForm1.FormCreate(Sender: TObject); begin   // Открытие ОТПРАВЛЯЮЩЕГО (SENDING) сокета.   ServerSocket1.Active:= true; end;   procedure TForm1.ClientSocket1Connect(Sender: TObject; Socket: TCustomWinSocket); begin   // Посылаем команду для начала передачи файла.   Socket.SendText('send'); end;   procedure TForm1.ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket); var   s, sl: string; begin   s:= Socket.ReceiveText;   // Если мы не в режиме приёма:   if not Reciving then   begin     // Теперь нам необходимо получить длину потока данных.     SetLength(sl, StrLen(PChar(s))+1); // +1 for the null terminator     StrLCopy(@sl[1], PChar(s), Length(sl)-1);     DataSize:= StrToInt(sl);     Data:= TMemoryStream.Create;     // Удаляем информацию о размере из данных.     Delete(s, 1, Length(sl));     Reciving:= true;   end;   // Сохраняем данные в файл, до тех пор, пока не получим все данные.   try     Data.write(s[1], length(s));     if Data.Size = DataSize then     begin       Data.Position:= 0;       Image2.Picture.Bitmap.LoadFromStream(Data);       Data.Free;       Reciving:= false;       Socket.Close;     end;   except     Data.Free;   end; end;   procedure TForm1.ServerSocket1ClientRead(Sender: TObject; Socket: TCustomWinSocket); var   ms: TMemoryStream; begin   // Клиент получает команду на передачу файла.   if Socket.ReceiveText = 'send' then   begin     ms:= TMemoryStream.Create;     try       // Получаем данные на передачу.       Image1.Picture.Bitmap.SaveToStream(ms);       ms.Position:= 0;       // Добавляем длину данных, чтобы клиент знал,       // сколько данных будет передано       // Добавляем #0 , чтобы можно было определить,       // где заканчивается информация о размере.       Socket.SendText(IntToStr(ms.Size) + #0);       // Посылаем его.       Socket.SendStream(ms);     except       // Итак, осталось освободить поток, если что-то не так.       ms.Free;     end;   end; end;   end.

[AlexHaos]

спасибо конечно, но хотел бы узнать, как реализовать четние и запись файлов, находящимся на другой машине ?

[AlexHaos]

если тебя не затруднит, напиши плиз простенькую программку в качестве примера, которая могла бы реализовать скажем чтение типизированных файлов с другой машины

[Keygenmusic]

Не очень понял вопроса. Нужен доступ к файлу находящемуся в общей папка на другом компе?
Тогда как с обычным файлом, только писАть : "\\<remote_ip>\<shared_foolder>\<my_file>"

[AlexHaos]

то есть скажем assignfile(f1,"\\127.0.0.1\c:\program files\fff.dat"); ?...