Задача такая: надо послать текстовый файл на сервер, потом по необходимости его считать.
Вопрос: КАК?

А что за сервер? FTP? HTTP? Share? Самописный?

сервер какой-то есть или самому писать нужно?

ftp

Ну так
TIdFTP.Put, TIdFTP.Get.
А вообще примеров много, если в поиске FTP набрать.

может не так сказал:
есть один пользователь, есть другой пользователь и есть общая типа базы. В этой базе хранятся общеужные документы, т.е. и тот, и тот могут ее заполнять и им надо считывать оттуда инфу.
Взламывать ее никто не будет, поэтому все делать через txt afqks

всеравно проблема непонятна...
одновременно читать они и так смогут
одновременно писать сервер не даст ( так и должно быть )
так же сервер не даст олновременно читать и писать ( но это тоже так и должно быть )

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

думал, что можно это сделать с помощью такой вот базы на сервере.

или можно как нить по другому?
П.С. Единой сетки локальной у них нет

В данном случае будет лучше сделать базу на MySQL, обработчик данных на PHP.
А из дельфи засылать запросы PHP скрипту и забирать у него результаты.
Надежней, мобильней, быстрее, аккуратней.

Snowy,а по проще.
Если просто делфи?

можно и так делать... но со скриптами оно как-то логичнее.
+ скрипты можно и на делфи написать ( хотя это уже и не скрипты будут ). а то, что пересылать нужно текст все значительно упрощает...

пока до поиска руки не дотянулись: есть ли уже готовый скрипт рассылки и считывания текста?

Скрипты можно минимизировать до предела - только выборка и запись.
Можешь в PHP попросить - накидают быстренько.
Если есть возможность, то можно построить серверную часть на WebSnap/WebBroker
Строить на базе данных логичней, чем на файлах.
Можно строить и на файлах.
Будет примерно то же, что и с файловой системой, с различием только, что вместо чтения и записи на диск, будут запросы TIdFTP.Get и TIdFTP.Put.

можно пример как сохранить файл на сервер. ( с Мемо)

Предположительно так:

Код

var   ftp: TIdFTP;   ms:  TMemoryStream; begin   ftp:=TIdFTP.Create(Application);   ms:=TMemoryStream.Create;   try     try       ftp.Host:='127.0.0.1';       ftp.Port:=21;       ftp.Username:='anonymous';       ftp.Password:='';       ftp.Connect(true, 2000);       AssErt(ftp.Connected);       ftp.ChangeDir('/Users/Femida');       Memo1.Lines.SaveToStream(ms);       ms.Position:=0;       ftp.Put(ms,'file1.txt',false);       ShowMessage('Файл отправлен');     finally       ms.Free; ftp.Free;     end;   except     ShowMessage('Не удалось отправить :(');   end;

Еще вариант тут:
http://forum.vingrad.ru/index.php?showtopic=32704

спасибо.а
сейчас от вируса вылечусь и попробую

насколько я понял:
ftp.Host:='127.0.0.1'; ip сервера ftp шного
ftp.Port:=21; его порт
ftp.Username:='anonymous'; логин
ftp.Password:=''; и пароль на ftp
ftp.ChangeDir('/Users/Femida'); директория куда будет писаться.
Так?

Все верно

Цитата(Snowy @ 28.12.2005, 13:36)

TIdFTP

а это что и с чем его есть?

компонент библиотеки Indy. закладка Indy Clients

компонент уже нашел.
но прога просто виснет.

Пройди трэйсом по F8. Посмотри в каком месте застряло.

как? жму F8, он идет,идет... и потом так или инаяе надо нажать на button

поставь бряку на ftp:=TIdFTP.Create(Application);
и с нее отладку начинай

может я тупой, но делаю красную точку у нужного метса,потом F8. Потом появляется Application... и далее появляется форма и остается нажат только на кнопку.

Выбери ftp:=TIdFTP.Create(Application);
Нажми F5 - выделится красным.
Запусти программу по F9.
Когда программа дойдет до этой строки, она остановится.
После этого жми F8 - программа будет выполняться по одной строчке.
На какой строчке заснет - та и есть нужная.
Неужели никогда дебагом не пользовался?

не пользовался

сделал, она по F9 сразу запускает форму.
Виснет именно на нажатии button

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

Она не может виснуть на нажатии батона.
Виснет она в коде батона.
Вот тебе и нужно поставить бряк на первой строке кода OnClick батона.

я делаю так: на синем кружке (слева от кода), жму F5 он тсановится красным.
Нажимаю F9 - запуск программы идет и все. Далее никакая кнопка( F8) не работает.
Если после выделения красным нажать на F8 то пробегает прога по Application.... и на этом выходит в тоже место,
Добавлено @ 17:52

Код

begin   Application.Initialize;   Application.CreateForm(TForm1, Form1);   Application.Run; end.

вот потом переходит сюда, если нажать F8

не так.
ставиш бряку ( ф5 )
потом запускаеш программу ( ф9 )
потом жмеш на свою кнопку, программа должна остановится на бряке.
и потом жмеш ф8

Цитата(_hunter @ 28.12.2005, 18:02)

ставиш бряку ( ф5 ) потом запускаеш программу ( ф9 ) потом жмеш на свою кнопку, программа должна остановится на бряке. и потом жмеш ф8

на третем шаге она виснет. Пробовал так,

покажи картинку среды с местом, где стоити бряка

Добавлено @ 18:19
понял, вот на этой троке тормозит: ftp.Connect(true, 2000);

вопро: и что делать?
Что это за 2000?

стоп. а чего порт 80?
поэтому и зависает ( ну и тайм-аут большой )

_hunter порт 80 это мне так сисадмин сказал.

Добавлено @ 18:59
_hunter, и какой выход?

Цитата

_hunter порт 80 это мне так сисадмин сказал.

на фтп 80-й? Он тебя видимо не понял.
ftp - 21, а 80 - это http.

Цитата

какой выход?

Уточни порт. Точно не 80. Скорее всего 21, либо ftp вообще нет.
Потом. У тебя программа на брякпоинте останавливается?

поставил 21,
теперь ругается на MemoryStream

На мемори стрим ругаться не может - тут все однозначно.
В какой именно строке ругается и что говорит?

ругается на директорию. Хотя на сервере я даже такую создал.
Пробовал ставить слэш в конце - толку нет

в смысле на напку?

да, пишет что нельзя ее создать или что то типатого.
Добавлено @ 11:45
если быть точнее, то вот

можеш картинку тут положить? а то у меня опера уже пять минут пишет sending request...

я выложил тут, просто форум подвисал

А доступ к ней разрешел под твоим юзером?

Там написано: exception: EIdProtocolReply '/12345 No such file or directory.'

Snowy и что это значит?
папку такую я создал на сервере

для начала попробуй туда же зайти фаром/тоталом
потом ( если получится ) попробуй прописать полный путь ( возможно эта папка ищется в домашней дирректории )

тотал туда заходит без проблем.
Идея: если туда попробовать загнать просто пустой текстовый фаул?
Добавлено @ 12:30
не катит
Добавлено @ 12:33

Цитата(_hunter @ 29.12.2005, 12:25)

попробуй прописать полный путь

Папка 12345 находится в корне?
Т.е., когда ты заходишь тоталом, ты сразу ее видишь, или нужно кудато сначала залезть?
Есть ли возможность подняться выше этой папки?
Попробуй фаром найти эту папку, зайди в нее. На пункте '..' нажми Ctrl+Enter - в строке появится правильный путь к папке.

будете смеяться, но я фар настраивать не умею

Цитата

будете смеяться

хи-хи

Цитата

я фар настраивать не умею

А его и не нужно настраивать.
Запусти. Нажми Alt+F1. Выбери FTP. Нажми Shift+F4. Введи адрес сервера, юзара и пароль.
Нажми сохранить. Зайди на сервер по ентеру. Далее, как я писал выше.

httpdocs/12345

стоп. какой еще httpdocs?
по-моему тебя админ как-то не так понял и дал доступ к HTTP серверу
в любом случает заходить нужно не в 12345 а в /httpdocs/12345

Цитата(_hunter @ 29.12.2005, 13:47)

стоп. какой еще httpdocs?

Обычная папка ftp на веб сервере. Доступ и по ftp и по http.

Цитата(_hunter @ 29.12.2005, 13:47)

заходить нужно не в 12345 а в /httpdocs/12345

Именно так. ('/httpdocs/12345');

СПАСИБО.

встречный вопрос: считывание как?

да, в принципе, так же.
только ftp.Get(ms,'file1.txt',false);

Код

var   ftp: TIdFTP;   ms:  TMemoryStream; begin   ftp:=TIdFTP.Create(Application);   ms:=TMemoryStream.Create;   try     try       ftp.Host:='**.***.**.**';       ftp.Port:=21;       ftp.Username:='*********';       ftp.Password:='******';       ftp.Connect(true, 50);       AssErt(ftp.Connected);       ftp.ChangeDir('/httpdocs/12345');       ftp.Get('file1.txt', ms,false);       Memo2.Lines.LoadFromStream(ms);       ShowMessage('Файл принят');     finally       ms.Free; ftp.Free;     end;   except     ShowMessage('Не удалось отправить :(');   end;

не скачивает. В чем тут ?

Код

....        ftp.Connect(true, 2000);           AssErt(ftp.Connected);           ftp.ChangeDir('/httpdocs/12345');           ftp.Get('file1.txt', ms,false);       ms.Position:=0;   .....

Добавлено @ 15:31
И под отладкой проверь, докуда доходит, и где не проходит.

Snowy СПАС. спасибо

Помогите! Не могу отправить *.тхт файл, выдает ошибку при ftp.Put(ms,'file1.txt',false);-Invalid Port Command.

Цитата

Snowy СПАС. спасибо

Рано еще радуешься.
Нужно еще ловить ситуацию, когда ты пытаешься писать файл, который кто-то читает.

Цитата(Phisic @ 29.12.2005, 17:40)

выдает ошибку при ftp.Put(ms,'file1.txt',false);-Invalid Port Command.

А код взят из этого топика или другой?

Цитата(Snowy @ 29.12.2005, 18:26)

Нужно еще ловить ситуацию, когда ты пытаешься писать файл, который кто-то читает.

могу предположить что если один пишет, другой в это время прочитатьне сможет. В противном случае, он просто не увидит новую запись.

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

Цитата

могу предположить что если один пишет, другой в это время прочитатьне сможет.

И наоборот. Пока кто-то читает - нет доступа на запись.
Тут или сообщение выводить о том, что не получается, либо автоматом пытаться писать, пока не пропустит.
В текущем состоянии просто сработает exception секция, и скажет, что никак.
Но данное сообщение ничем не отличается от "Не удалось соедениться" или "пароль неверен".
В принципе работать все и так будет, просто периодически будет однотипное, ни о чем не говорящее сообщение.

Цитата(Phisic @ 29.12.2005, 17:40)

Помогите! Не могу отправить *.тхт файл, выдает ошибку при ftp.Put(ms,'file1.txt',false);-Invalid Port Command.

Попробуй добавить

Код

ftp.Passive:=true;

т.е. либо просто вывыодит сообщение что "пока нельзя сделать требуемую опперацию" или через доп. файл работать.: писать сразу в 2 места, и если от главного места нет отклика, пытаться во вторм источнике. Хотя это геморройно и наверно себя не оправдает

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

имена надо по улице-дому делать
Вообще то вероятность того что ее одновременно будут использовать 2 человека практически равна нулю.
Думаю остановится на варианте с сообщением.

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

Заработало, Senk you Snowy! Поступающим новым Годом!

Вопрос: почему он не хочет сохранять и считывать xls-файл?

Цитата(mvdr @ 10.1.2006, 19:01 )

Вопрос: почему он не хочет сохранять и считывать xls-файл?

А что говорит?
А какие файлы нормально проходят?

нормалльно текстовый проходят.

Просто парадокс: смотрю на сервере - есть и папка, и файл.
Пытаюсь набрать его "вручную" - он пишет 404.

Ну вообще-то xls - тоже текстовый.
Но на всякий случай можешь попробовать добавить

Код

ftp.TransferType := ftBinary;

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

Snowy

Цитата(Snowy @ 10.1.2006, 21:08 )

А во-вторых, проверь регистр.

как в воду глядел
Вроде мелочь, а из-за нее и была запарка.

При удалении "Отказано в доступе"
на серваке разрешено и чтение и запись, других прав там нет


Добавлено @ 12:59
всё, разобрался, дело в правах на папку, а не в FTP-сервере

Поэтому и отказано в доступе, раз прав нет.
А в чем вопрос? Все логично.
Одно замечание - все запросы стоит посадить в try except.

возобновилось... торможу: ка кпеределать чтобы не через фтп быльо, а напрямую с инета...
Т.е. есть файл php, надо его скачать, и посмотреть его код. но с последним проблемы нет - он легко загоняется в тоже Мемо, а вот с первым...

Попробуй поиск по IdHTTP.Get. Примеров полно.
Только ты получишь код страницы, а не php. Сервер php код не отдаст - отдаст результат его работы.

а если сохранить страницу и потом открыть ее через Мемо?

Мне надо найти изменения в странице, т.е. были ли они или нет.

Ну так поиск...
Вот первый попавшийся пример, чуть доработать:

Snowy, долго смотрел... толком не понял: как с авторизацией делать?
логин и пароль...