Модераторы: Snowy, Poseidon, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> прога тут работает а там нет.. 
:(
    Опции темы
etc
Дата 19.7.2005, 20:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


FCZ
*


Профиль
Группа: Участник
Сообщений: 227
Регистрация: 23.2.2005
Где: Красногорск

Репутация: нет
Всего: 3
Здрась!
Сделал короче прогу которая обязана была качать с ftp файлы указанные.
поставил на домашнем фтпшник для проверки.. все работало.. все удачно скачивалось от куда надо и куда надо..
припер ее на работу.. запустил.. и она вроду бы начинала скачивать скачивала да только не то... вместо нужного файла у меня закачивалась страница 404.
может кто подскажет в чем злодей сидит? smile
PM WWW ICQ   Вверх
RA
Дата 19.7.2005, 21:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Брутальный буратина
****


Профиль
Группа: Участник Клуба
Сообщений: 3497
Регистрация: 31.3.2002
Где: Лес

Репутация: 10
Всего: 115
H04b Ну если программа работает в одно месте, а вдругом нет, то проблема скорее в том месте где она не работает.

Откуда нам телепатам знать особенности сетевого содинения у тебя на работе smile .

Может там Фаер стоит, или еще чего.

По подробней надобы. Да и код программы не мешалобы посмотреть.

Это сообщение отредактировал(а) RAdmin - 19.7.2005, 21:23
PM   Вверх
_hunter
Дата 20.7.2005, 10:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 5
Всего: 98
и какой еще 404 на фтп?


--------------------
Tempora mutantur, et nos mutamur in illis...
PM ICQ   Вверх
RA
Дата 20.7.2005, 12:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Брутальный буратина
****


Профиль
Группа: Участник Клуба
Сообщений: 3497
Регистрация: 31.3.2002
Где: Лес

Репутация: 10
Всего: 115
Цитата(_hunter @ 20.7.2005, 10:36)
и какой еще 404 на фтп?

Вот и я думаю, наверное всёже это фаер по дефолту всем возвращает страницу 404.
PM   Вверх
etc
Дата 24.7.2005, 12:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


FCZ
*


Профиль
Группа: Участник
Сообщений: 227
Регистрация: 23.2.2005
Где: Красногорск

Репутация: нет
Всего: 3
Извиняюсь, не 404 а страницу с таким вот сообщением:
Цитата

Не удалось установить связь с сервером \"192.168.1.3\"!
Запрос: RETR /spr/sok/PERESEC.DBF
Получен ответ: 550 /spr/sok/PERESEC.DBF: No such file or directory

Как я понял он говорит что файла такого нету.. правильно? но он там есть...
а код проги такой:
Код

function GetInetFile 
(const fileURL, FileName: String): boolean;
const BufferSize = 1024; 
var 
 hSession, hURL: HInternet; 
 Buffer: array[1..BufferSize] of Byte; 
 BufferLen: DWORD; 
 f: File; 
 sAppName: string; 
begin 
Result:=False;
sAppName := ExtractFileName(Application.ExeName); 
hSession := InternetOpen(PChar(sAppName), 
               INTERNET_OPEN_TYPE_PRECONFIG, 
              nil, nil, 0); 
try 
 hURL := InternetOpenURL(hSession, 
           PChar(fileURL), 
           nil,0,0,0); 
 try
  AssignFile(f, FileName); 
  Rewrite(f,1);
  repeat 
   InternetReadFile(hURL, @Buffer, 
                    SizeOf(Buffer), BufferLen); 
   BlockWrite(f, Buffer, BufferLen)
  until BufferLen = 0;
  CloseFile(f);
  Result:=True;
 finally 
  InternetCloseHandle(hURL) 
 end
finally 
 InternetCloseHandle(hSession) 
end 
end;

procedure Tftpload.SpeedButton1Click(Sender: TObject);
var FileOnNet, LocalFileName, pas, log, adres: string;
begin
if filess.Items.Count=0 then exit;
if filess.ItemIndex<0 then filess.ItemIndex:=0;
log:=login.Text;
pas:=password.Text;
adres:=patch.Text;
FileOnNet:='ftp://'+log+':'+pas+'@'+adres+':'+21+'/'+filess.Items[filess.ItemIndex];
LocalFileName:='C:\'+filess.Items[filess.ItemIndex];
if GetInetFile(FileOnNet,LocalFileName)=True then
  endd.Items.Add(filess.Items[filess.ItemIndex]+' -Закачен');
if GetInetFile(FileOnNet,LocalFileName)=False then
  endd.Items.Add(filess.Items[filess.ItemIndex]+' - Не закачен');
end;

Добавлено @ 12:13
Цитата(RAdmin @ 20.7.2005, 12:20)
Цитата (_hunter @ 20.7.2005, 10:36)
и какой еще 404 на фтп?


Вот и я думаю, наверное всёже это фаер по дефолту всем возвращает страницу 404.


а разве может быть так что допустим через Фар все нормально закачивается.. а вот через мое не закачивается?

Это сообщение отредактировал(а) H04b - 24.7.2005, 12:14
PM WWW ICQ   Вверх
RA
Дата 24.7.2005, 17:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Брутальный буратина
****


Профиль
Группа: Участник Клуба
Сообщений: 3497
Регистрация: 31.3.2002
Где: Лес

Репутация: 10
Всего: 115
Цитата(H04b @ 24.7.2005, 12:09)
а разве может быть так что допустим через Фар все нормально закачивается.. а вот через мое не закачивается?


Я имею в виду, что на работе у тебя возможно стоит FireWall каторый блокирует трафик, но из описания ошибки ясно что это не так.


Цитата(H04b @ 24.7.2005, 12:09)
Как я понял он говорит что файла такого нету.. правильно? но он там есть...
а код проги такой:

Вобще-то говорят что неудалось установить соединение с FTP.
И следовательно фаил не найден.

Вобще что это за сервер? Он случайно не из твоей домашней локалки?
PM   Вверх
etc
Дата 24.7.2005, 18:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


FCZ
*


Профиль
Группа: Участник
Сообщений: 227
Регистрация: 23.2.2005
Где: Красногорск

Репутация: нет
Всего: 3
Цитата(RAdmin @ 24.7.2005, 17:26)
Вобще что это за сервер? Он случайно не из твоей домашней локалки?

Ну да с рабочей локалки.
PM WWW ICQ   Вверх
RA
Дата 24.7.2005, 19:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Брутальный буратина
****


Профиль
Группа: Участник Клуба
Сообщений: 3497
Регистрация: 31.3.2002
Где: Лес

Репутация: 10
Всего: 115
Цитата(H04b @ 24.7.2005, 18:29)
Ну да с рабочей локалки.

Это как понять, Скакой такой рабочей локалки?

H04b Запутал ты меня. smile

Если FTP сервер находится в локальной сети твоего дома то кроме как из локальной сети твоего дома к нему нету доступа, так как такие сервера в основном не имеют выхода в интернет.
PM   Вверх
etc
Дата 24.7.2005, 19:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


FCZ
*


Профиль
Группа: Участник
Сообщений: 227
Регистрация: 23.2.2005
Где: Красногорск

Репутация: нет
Всего: 3
Вообщем объясняю..
Дома я сделал прогу.. на свой же комп поставил FTP сервак и проверил прогу.. все работало нормально..
Принес на работу, а на работе сеть сервак которой имеет фтп. и вот мне надо скачать файлы с этого рабочего фтпшника.. но выходит такая лабуда....
Терь понятно smile
PM WWW ICQ   Вверх
RA
Дата 24.7.2005, 20:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Брутальный буратина
****


Профиль
Группа: Участник Клуба
Сообщений: 3497
Регистрация: 31.3.2002
Где: Лес

Репутация: 10
Всего: 115
H04b Теперь да. smile И сразу вопрос, а почему ты не использовал функци для работы с ФТП из WinInet ?
PM   Вверх
etc
Дата 27.7.2005, 14:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


FCZ
*


Профиль
Группа: Участник
Сообщений: 227
Регистрация: 23.2.2005
Где: Красногорск

Репутация: нет
Всего: 3
Мне просто надо было все это организовать по быстрому.. первое что попалось так и сделал. я ж только еще учусь. smile . поэтому не стал заморачиваться.
PM WWW ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Сети"
Snowy
Poseidon
MetalFan

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делится вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Snowy, Poseidon, MetalFan.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Сети | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.1035 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.