Обновление БД через инет!!!

@sPan4eZ · Регистрация: 16.09.2009

Студворк — интернет-сервис помощи студентам

Народ как сделать обновление файла Access через интернет более раней версии или ранее даты обновления ??

Народ как с помощью idFTP метода get скачать с фтп файл в нужную директорию?

Срочно помогите пожалуйста!!!

@sPan4eZ · 17.09.2009, 23:33 **[ТС]**

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

Его надо объявить, и присвоить ему путь к проге

Var
PathToMyProgram: Какой именно вписать сюда тип?

integer он меня послал хД

@GAV_13 · 17.09.2009, 23:35

VoodooMan,

Ну, это я с Builder'ом перепутал

@Lord_Voodoo · 17.09.2009, 23:36

мама не горюй, ну глянь ты хоть раз на прототип функции в справке:

Delphi
1
function ExtractFilePath(const FileName: string): string;

GAV_13, да нет, задача, конечно же, простая, если не ленится

@GAV_13 · 17.09.2009, 23:36

sPan4eZ, гм... объясни мне тупому, как путь к файлу может быть ЦЕЛЫМ ЧИСЛОМ??

@sPan4eZ · 17.09.2009, 23:38 **[ТС]**

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

мама не горюй, ну глянь ты хоть раз на прототип функции в справке:

Все все я причем так и сдела только не F1 а просто перебрал Типы)))

Добавлено через 57 секунд

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

гм... объясни мне тупому, как путь к файлу может быть ЦЕЛЫМ ЧИСЛОМ??

У меня все может быть хД не обращай внимание я с Delphi дружить только начинаю потехоньку всего сижу за ней только 1 неделю

Спасибо парни за помощь хорошо что есть такие люди которые помогут

@Lord_Voodoo · 17.09.2009, 23:39

sPan4eZ, а можешь озвучить этот перебор, жуть как интересно послушать возможные варианты, и это если еще учесть, что этот тип должен как-то вписаться в строку...

@sPan4eZ · 17.09.2009, 23:41 **[ТС]**

String был вторым

@Lord_Voodoo · 17.09.2009, 23:42

sPan4eZ, ну если только вторым, есть два варианта - либо ты еще ало знаешь типов, либо сдвиги ощутимые я наблюдаю прямо на глазах...

@GAV_13 · 17.09.2009, 23:44

VoodooMan,
Application.ExeName (свойство) Имя главного выполняемого файла системы

Функция ParamStr возвращает, один из параметров командной строки используемый при вызове текущей программы. Параметр ParamIndex определяет, какой параметр будет возвращен:
0: Диск/путь/исполняемая программа

ИМХО, должно работать) причем без учета активной папки формирует правильный путь... Проверил - в делфях так же работать должно...

Добавлено через 1 минуту
А то уж ЧСВ падать начало

@Lord_Voodoo · 17.09.2009, 23:45

GAV_13, дык разве я спорю... просто использую exename всегда, и я не на твой код что-то говорил, а о вопрошающем...

а что такое ЧСВ? и на этом думаю, можно будет тему прикрывать, а то разоффтопились

@GAV_13 · 17.09.2009, 23:52

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

а что такое ЧСВ?

Чуство Собственной Важности =))) Типа самооценка)

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

и на этом думаю, можно будет тему прикрывать, а то разоффтопились

Это точно)

@sPan4eZ · 18.09.2009, 00:10 **[ТС]**

Что за ошибка не гуглится

Socket error # 11004

и вот еще

Already Connected

Это уже я пробую соединятся с внешним IP а не локальным и выдает вот такую ошибку

@GAV_13 · 18.09.2009, 00:18

Already Connected вроде как пытается сказать что вообще-то уже подключОн...

Delphi
1
2
3
4
5
6
7
8
9
10
  idFTP1.Host := '10.0.0.106';
  idFTP1.Username := 'root';
  idFTP1.Password := '12345';
  if not idFTP1.Connected then idFTP1.Connect(True);
  if idFTP1.Connected then begin
    idftp1.Get('СоставКлана.mdb', 'C:\bdclan\СоставКлана.mdb', True);
    idFTP1.Disconnect();
  end;
  Else 
    ShowMessage('Ну совсем не получилось :(');;

что-то типа такого

@sPan4eZ · 18.09.2009, 00:29 **[ТС]**

Вот что получается

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var
PathToMyProgram: string;
begin  
  PathToMyProgram:=ExtractFilePath(paramstr(0));
  idFTP1.Host := '2*7.***.2*9.***';
  idftp1.Port := 21;
  idFTP1.Username := 'Root';
  idFTP1.Password := '******';
  idFtp1.Connect(True);
  idftp1.Get('СоставКлана.mdb', PathToMyProgram+'СоставКлана.mdb', True);
  idFTP1.Disconnect();
  Image1.Visible:=False;
  DBGrid1.Visible:=True;
  PageControl1.Visible:=True;
  adoconnection1.open;
  adoquery1.open;
  adoquery2.open;
  adoquery3.open;
  adoquery4.open;

Теперь вот что пишет

Illegal Port command

@Lord_Voodoo · 18.09.2009, 00:40

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

@GAV_13 · 18.09.2009, 00:41

а без порта пробовал?

@sPan4eZ · 18.09.2009, 00:44 **[ТС]**

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

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

Не фаервола нету даже антивирусника нету)))

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

а без порта пробовал?

Тоже самое

@Lord_Voodoo · 18.09.2009, 00:49

sPan4eZ, какой у ошибки код? а вообще на ftp этот зайти можешь?

@GAV_13 · 18.09.2009, 00:53

У тебя наверное серый IP, пробуй добавить

Delphi
1
2
IdFTP1.Passive:=true;
IdFTP1.TransferType:=ftbinary; //кстати, тоже не машало бы...

@sPan4eZ · 18.09.2009, 00:54 **[ТС]**

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

какой у ошибки код? а вообще на ftp этот зайти можешь?

Да

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

У тебя наверное серый IP, пробуй добавить

Нет не пашет

Новые блоги и статьи Все статьи Все блоги /
Алиса нашла кучу ошибок компиляции и запуска в проекте, который без проблем компилировался и запускался))) anaschu 30.06.2026 Я пока посмеюся, но завтра проверю. А вообще интерсно. Дал алисе файл, в котором точно нет ошибок компиляции и запуска, и попросил их найти. Нашла кучу))) Критические ошибки, мешающие компиляции и. . .	сукцессия 16. Общий обзор, в основном что бы другие ии поняли anaschu 29.06.2026 # Передаточный документ: модель микоризной сукцессии (для нового чата) Этот документ предназначен для того, чтобы новый чат Claude мог продолжить работу без необходимости заново разбираться в. . .	сукцессия 15 неявная схема anaschu 29.06.2026 Алиса Калибровка параметров симбиотической модели: технический обзор Содержание: Введение Постановка проблемы Технические аспекты реализации Процесс внедрения изменений	сукцессия 14. Обновленная схема модели anaschu 28.06.2026 ГЛОБАЛЬНАЯ ОПИСАТЕЛЬНАЯ СПЕЦИФИКАЦИЯ ЭКОСИСТЕМНОЙ МОДЕЛИ «SOIL CHEMISTRY & MYCORRHIZA 2. 0» https:/ / ibb. co/ NnkGpfMd Представленная интегрированная схема описывает непрерывную нелинейную. . .
сукцессия 13. Питон модель трехзонного мицелия, пока что в основном арбускулярного anaschu 28.06.2026 ## Разработка агентной модели микоризной сукцессии: от выявления артефактов к созданию комплексной системы ### Аннотация Представлено исследование по разработке агентной модели микоризной. . .	сукцессия 12. краткий список проверок модели перед запуском. anaschu 27.06.2026 Скрытые отказы в моделях систем динамики (SD-models) экологических систем: два случая из практики Контекст Разбирался прототип модели систем динамики (SD-модели) микоризной сукцессии: пять. . .	Сукцессия 11. Проверка орудий перед войной: разработка через тестирование anaschu 27.06.2026 Как не дать модели соврать самой себе: проверки для симуляции микоризной сукцессии Введение Когда вы строите математическую модель живой системы — грибов, растений, почвы — главная опасность. . .	10 сукцессия. Питон код войны грибов и растений anaschu 27.06.2026 import numpy as np class PlantAgent: def __init__(self, name, strategy, initial_biomass): self. name = name self. strategy = strategy # "greedy" (широколиственные) или. . .

@sPan4eZ 0 / 0 / 0 Регистрация: 16.09.2009 Сообщений: 62

	Обновление БД через инет!!! 17.09.2009, 16:19. Показов 5901. Ответов 59 Метки нет (Все метки) Народ как сделать обновление файла Access через интернет более раней версии или ранее даты обновления ?? Народ как с помощью idFTP метода get скачать с фтп файл в нужную директорию? Срочно помогите пожалуйста!!! 0

@GAV_13 81 / 81 / 6 Регистрация: 14.09.2009 Сообщений: 252
	17.09.2009, 23:35
	VoodooMan, Ну, это я с Builder'ом перепутал 0

@GAV_13 81 / 81 / 6 Регистрация: 14.09.2009 Сообщений: 252
	17.09.2009, 23:36
	sPan4eZ, гм... объясни мне тупому, как путь к файлу может быть ЦЕЛЫМ ЧИСЛОМ?? 1

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	17.09.2009, 23:39
	sPan4eZ, а можешь озвучить этот перебор, жуть как интересно послушать возможные варианты, и это если еще учесть, что этот тип должен как-то вписаться в строку... 0

@sPan4eZ 0 / 0 / 0 Регистрация: 16.09.2009 Сообщений: 62
	17.09.2009, 23:41 [ТС]
	String был вторым 0

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	17.09.2009, 23:42
	sPan4eZ, ну если только вторым, есть два варианта - либо ты еще ало знаешь типов, либо сдвиги ощутимые я наблюдаю прямо на глазах... 0

@GAV_13 81 / 81 / 6 Регистрация: 14.09.2009 Сообщений: 252
	17.09.2009, 23:44
	VoodooMan, Application.ExeName (свойство) Имя главного выполняемого файла системы Функция ParamStr возвращает, один из параметров командной строки используемый при вызове текущей программы. Параметр ParamIndex определяет, какой параметр будет возвращен: 0: Диск/путь/исполняемая программа ИМХО, должно работать) причем без учета активной папки формирует правильный путь... Проверил - в делфях так же работать должно... Добавлено через 1 минуту А то уж ЧСВ падать начало 0

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	17.09.2009, 23:45
	GAV_13, дык разве я спорю... просто использую exename всегда, и я не на твой код что-то говорил, а о вопрошающем... а что такое ЧСВ? и на этом думаю, можно будет тему прикрывать, а то разоффтопились 0

@sPan4eZ 0 / 0 / 0 Регистрация: 16.09.2009 Сообщений: 62
	18.09.2009, 00:10 [ТС]
	Что за ошибка не гуглится Socket error # 11004 и вот еще Already Connected Это уже я пробую соединятся с внешним IP а не локальным и выдает вот такую ошибку 0

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	18.09.2009, 00:40
	не знаю, только что выходил на внешний ftp, все работает как часы, порт по умолчанию будет 21... а у тебя файервола нет часом? 0

@GAV_13 81 / 81 / 6 Регистрация: 14.09.2009 Сообщений: 252
	18.09.2009, 00:41
	а без порта пробовал? 0

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	18.09.2009, 00:49
	sPan4eZ, какой у ошибки код? а вообще на ftp этот зайти можешь? 0