|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
30.10.2006, 12:50 | #1 |
Александр
Администратор
Регистрация: 28.10.2006
Сообщений: 17,597
|
передачи по сети файла
перенесено со старого форума. сообщение от 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. Примного благодарен! А я то вспоминал как преобразовывать типы! Вспоминал вспоминал, да и воспользовался твоим текстом! Сработало идеально! Спасибо за хорошие советы! |
07.02.2011, 19:28 | #2 | |
Регистрация: 05.02.2011
Сообщений: 4
|
Цитата:
Код:
И что ставить? Давно мучаюсь с передачей файлов. Буду рад, если пойдёт. Последний раз редактировалось Stilet; 07.02.2011 в 20:44. |
|
07.02.2011, 20:45 | #3 | |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Цитата:
I'm learning to live...
|
|
07.02.2011, 22:46 | #4 |
Регистрация: 05.02.2011
Сообщений: 4
|
А если так:
var srcfile, destfile : Strinrg; begin CopyFile(PChar(srcfile), PChar(destfile)); end; перенесено со старого форума. сообщение от fox. Примного благодарен! А я то вспоминал как преобразовывать типы! Вспоминал вспоминал, да и воспользовался твоим текстом! Сработало идеально! Спасибо за хорошие советы! [/QUOTE] Передача файла по сети. Не могу поверить, что это работает. Не поможешь ли ты с исходником, где это получилось. В пределах компа работает. Может я ошибаюсь. Ведь SRCFILE у меня на сервере, А я его хочу скопировать на клиент. Спасибо. Последний раз редактировалось Stilet; 08.02.2011 в 08:15. |
07.02.2011, 23:21 | #5 |
Старожил
Регистрация: 17.11.2010
Сообщений: 18,922
|
CopyFile нормальено по сети работает, лишь бы полномочия на доступ были соответствующие заданы
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Скачивание файла из сети, по средствам TcpClient. | papa_serg | Работа с сетью в Delphi | 6 | 01.04.2008 23:22 |
Органичить скорость передачи | Denager | Работа с сетью в Delphi | 22 | 05.03.2008 09:08 |
Скорость передачи приема | Лубышев | Работа с сетью в Delphi | 1 | 05.02.2008 10:14 |
сжатие при передачи данных | Makarov | Работа с сетью в Delphi | 5 | 17.01.2008 21:41 |
помогомите написать програмку для передачи сообщений в локальной сети | Илюха | Работа с сетью в Delphi | 6 | 20.11.2007 00:57 |