передачи по сети файла

[Alar]

перенесено со старого форума. сообщение от fox.

Кто нить помогите плз! Возникла необходимость передачи по сети файла, но с компонентами TserverSocket TClientSocket связываться не хочется ибо файл требо просто отправить в указанную папку! Спасибо за скорый ответ!!!

перенесено со старого форума. сообщение от Storm.

Могу предложить решение "в лоб".

Открываешь два стрима (TFileStream), первый:
fl1:=Tfilestream.create('c:\myfile. txt', fmopenread);
второй:
fl2:=Tfilestream.create('\\server\m yfile.txt', fmcreate);
и потом:
fl2.CopyFrom(fl1, fl1.size);
и не забудь закрыть оба стрима:
fl1.free;
fl2.free;

Думаю должно скопироваться.

перенесено со старого форума. сообщение от fox.

Вчера порекомендовали команду CopyFile({имя отсылаемого файла},{имя файла на удаленной машинке},{флаг}); Достаточно не плохое решение если бы не грабли с PAnsiChar! Дело в том что в идеале было красиво сунуть в команду строковые переменные, а приходится засовывать такого плана строчки 'some text', что немного не удобно! Так что придется попробоват ь твой текст, за что и благодарен!!!

перенесено со старого форума. сообщение от Storm.

А если так:

var
srcfile, destfile : Strinrg;
begin
CopyFile(PChar(srcfile), PChar(destfile));
end;

перенесено со старого форума. сообщение от fox.

Примного благодарен! А я то вспоминал как преобразовывать типы! Вспоминал вспоминал, да и воспользовался твоим текстом! Сработало идеально! Спасибо за хорошие советы!

[eekvasov]

Думаю должно скопироваться.

перенесено со старого форума. сообщение от fox.

Вчера порекомендовали команду CopyFile({имя отсылаемого файла},{имя файла на удаленной машинке},{флаг}); .....
бы не грабли с PAnsiChar! Дело в том что в идеале было красиво сунуть в перенесено со старого форума. сообщение от Storm.

А если так:

var 
srcfile, destfile : Strinrg; 
begin 
CopyFile(PChar(srcfile), PChar(destfile)); 
end;

А где Флаг?
И что ставить?
Давно мучаюсь с передачей файлов. Буду рад, если пойдёт.

[Stilet]

А где Флаг?

Под этим флагом имелся ввиду третий параметр, который ставится в True - когда функция копирует файл с заменой, не выбивая ошибки, или в False если нужно предупредить программу о том что такой файл уже существует, и его заменять не стоит

[eekvasov]

А если так:

var
srcfile, destfile : Strinrg;
begin
CopyFile(PChar(srcfile), PChar(destfile));
end;

перенесено со старого форума. сообщение от fox.

Примного благодарен! А я то вспоминал как преобразовывать типы! Вспоминал вспоминал, да и воспользовался твоим текстом! Сработало идеально! Спасибо за хорошие советы! [/QUOTE]

Передача файла по сети. Не могу поверить, что это работает. Не поможешь ли ты с исходником, где это получилось.

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

Под этим флагом имелся ввиду третий параметр, который ставится в True - когда функция копирует файл с заменой, не вт

В пределах компа работает. Может я ошибаюсь. Ведь SRCFILE у меня на сервере, А я его хочу скопировать на клиент. Спасибо.

[Аватар]

CopyFile нормальено по сети работает, лишь бы полномочия на доступ были соответствующие заданы