Передача файлов на FTP не зная полного пути, но зная имя и расширение файла

@qwsdf · Регистрация: 10.06.2013

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

Всем привет знатокам Delphi, нужен ваш совет, суть в том, что надо передать файл на фтп находящийся в учетной записе пользователя, к примеру C:\Users\Вася\Загрузки\1.тхт.Так передача файла идет нормально, а что если имя учетки не известно, а именно при передачи файла надо указывать полный путь, в том числе имя учетки и до имя файла.Но если имя учетки не известно что тогда? Или может существует код поиска самого файла, без указывания точного пути?Если да то помогите плз!Поставлю +

magirus · 10.06.2013, 20:48

ну если вам не известен логин и пароль ФТП ,то учетка не ваша, а это статья 272 УК РФ - несанкционированный доступ к компьютерной информации.

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

Поставлю +

можете начинать ставить, я Вас от тюрьмы спасаю

@qwsdf · 10.06.2013, 21:08 **[ТС]**

ну если вам не известен логин и пароль ФТП ,то учетка не ваша, а это статья 272 УК РФ - несанкционированный доступ к компьютерной информации.

можете начинать ставить, я Вас от тюрьмы спасаю

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

Delphi

idFTP1.Host:='***'; //FTP-сервер
idFTP1.Port:=21; //порт ФТП сервера
idFTP1.Username:='***';
idFTP1.Password:='****';
idFTP1.Connect;
IdFTP1.Put('C:\Users\Вася\Desktop\1.txt','1.txt' ,true);
idFTP1.Disconnect;

Все работает отлично, но нужно только указывать полный путь до файла, а если путь полный не известен?Как быть?

magirus · 10.06.2013, 21:10

Не по теме:

тогда я вас пожалуй в делфи переправлю. извиняюсь за подозрения.

@Second · 10.06.2013, 21:18

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

Все работает отлично, но нужно только указывать полный путь до файла, а если путь полный не известен?Как быть?

Запишите путь в переменную и передайте в качестве параметра вместо статичного пути в методе.
Я Вас правильно понял ?

@qwsdf · 10.06.2013, 21:25 **[ТС]**

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

Запишите путь в переменную и передайте в качестве параметра вместо статичного пути в методе.
Я Вас правильно понял ?

Я не сильно силен в делфи, так как учу всего год.Задача такова, передать файл 1.тхт на сервер без указания полного пути, а именно просто указав имя файла вот так 1.тхт.То есть не писать полный путь к файлу C:\Users\Вася\Desktop\1.txt, а писать просто 1.тхт и так что бы этот файл передался на сервер, а то если я просто пишу не C:\Users\Вася\Desktop\1.txt а пишу просто 1.txt то файл не передаеться на сервер, а надо что бы передался не указывая полного пути.

~~Dr_Quake~~ · 10.06.2013, 21:28

GetEnvironmentVariable

Переменная называется USERPROFILE

Если же он в папке с программой - GetCurrentDirectory или ExtractFilePath(Application.exename)

@Second · 10.06.2013, 21:37

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

Я не сильно силен в делфи...

в моем примере рассмотрен крайне упрощенный метод.

Delphi

Var
 FileName : String;
 
begin
 
.....
 
FileName := '1.txt';
 
 
IdFTP1.Put(OpenPictureDialog1.FileName,  FileName , true);
 
.....
 
end.

как-то так.

@qwsdf · 10.06.2013, 21:46 **[ТС]**

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

в моем примере рассмотрен крайне упрощенный метод.

Delphi

Var
 FileName : String;
 
begin
 
.....
 
FileName := '1.txt';
 
 
IdFTP1.Put(OpenPictureDialog1.FileName,  FileName , true);
 
.....
 
end.

как-то так.

Ругаеться на openpicturedialog1, можно точный код пожалуйста.Или может надо в usus прописать какой то модуль?

@Second · 10.06.2013, 22:39

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

~~Dr_Quake~~ · 10.06.2013, 22:59

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

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

Тем не менее это мелочи в сравнении с получением полного пути через dialogs...

@qwsdf · 11.06.2013, 10:48 **[ТС]**

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

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

А может есть другой код, без компонентов?

~~Dr_Quake~~ · 11.06.2013, 11:19

Я ужё всё написал, учиться читать не ко мне.

@саша40 · 11.06.2013, 12:12

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

Все работает отлично, но нужно только указывать полный путь до файла, а если путь полный не известен?Как быть?

Кидать файл в папку с программой и с помощью ExtractFilePath(Application.ExeName) узнавать к нему путь(точнее к папке с программой).

Добавлено через 8 минут

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

idFTP1.Host:='***'; //FTP-сервер
idFTP1.Port:=21; //порт ФТП сервера
idFTP1.Username:='***';
idFTP1.Password:='****';
idFTP1.Connect;
IdFTP1.Put('C:\Users\Вася\Desktop\1.txt','1.txt' ,true);
idFTP1.Disconnect;
Все работает отлично, но нужно только указывать полный путь до файла, а если путь полный не известен?Как быть?

Вот так получай:

Delphi

idFTP1.Host:='***'; //FTP-сервер
idFTP1.Port:=21; //порт ФТП сервера
idFTP1.Username:='***';
idFTP1.Password:='****';
idFTP1.Connect;
IdFTP1.Put(ExtractFilePath(Application.ExeName) + '\1.txt','1.txt' ,true);
idFTP1.Disconnect;

@qwsdf · 11.06.2013, 13:27 **[ТС]**

Сообщение от саша40

Кидать файл в папку с программой и с помощью ExtractFilePath(Application.ExeName) узнавать к нему путь(точнее к папке с программой).

Добавлено через 8 минут

Вот так получай:

Delphi

idFTP1.Host:='***'; //FTP-сервер
idFTP1.Port:=21; //порт ФТП сервера
idFTP1.Username:='***';
idFTP1.Password:='****';
idFTP1.Connect;
IdFTP1.Put(ExtractFilePath(Application.ExeName) + '\1.txt','1.txt' ,true);
idFTP1.Disconnect;

Опять ошибка

@qwsdf 0 / 0 / 0 Регистрация: 10.06.2013 Сообщений: 20
		1
	Передача файлов на FTP не зная полного пути, но зная имя и расширение файла 10.06.2013, 20:09. Показов 2057. Ответов 14 Метки нет (Все метки) Всем привет знатокам Delphi, нужен ваш совет, суть в том, что надо передать файл на фтп находящийся в учетной записе пользователя, к примеру C:\Users\Вася\Загрузки\1.тхт.Так передача файла идет нормально, а что если имя учетки не известно, а именно при передачи файла надо указывать полный путь, в том числе имя учетки и до имя файла.Но если имя учетки не известно что тогда? Или может существует код поиска самого файла, без указывания точного пути?Если да то помогите плз!Поставлю + 0

magirus Почетный модератор 28045 / 15778 / 982 Регистрация: 15.09.2009 Сообщений: 67,752 Записей в блоге: 78
	10.06.2013, 20:48	2
	ну если вам не известен логин и пароль ФТП ,то учетка не ваша, а это статья 272 УК РФ - несанкционированный доступ к компьютерной информации. Сообщение от qwsdf Поставлю + можете начинать ставить, я Вас от тюрьмы спасаю 0

magirus
	10.06.2013, 21:10 #4
	Не по теме: тогда я вас пожалуй в делфи переправлю. извиняюсь за подозрения. 0

@Second 118 / 80 / 1 Регистрация: 10.08.2011 Сообщений: 664
	10.06.2013, 21:18	5
	Сообщение от qwsdf Все работает отлично, но нужно только указывать полный путь до файла, а если путь полный не известен?Как быть? Запишите путь в переменную и передайте в качестве параметра вместо статичного пути в методе. Я Вас правильно понял ? 0

@qwsdf 0 / 0 / 0 Регистрация: 10.06.2013 Сообщений: 20
	10.06.2013, 21:25 [ТС]	6
	Сообщение от Second Запишите путь в переменную и передайте в качестве параметра вместо статичного пути в методе. Я Вас правильно понял ? Я не сильно силен в делфи, так как учу всего год.Задача такова, передать файл 1.тхт на сервер без указания полного пути, а именно просто указав имя файла вот так 1.тхт.То есть не писать полный путь к файлу C:\Users\Вася\Desktop\1.txt, а писать просто 1.тхт и так что бы этот файл передался на сервер, а то если я просто пишу не C:\Users\Вася\Desktop\1.txt а пишу просто 1.txt то файл не передаеться на сервер, а надо что бы передался не указывая полного пути. 0

~~Dr_Quake~~ Заблокирован
	10.06.2013, 21:28	7
	GetEnvironmentVariable Переменная называется USERPROFILE Если же он в папке с программой - GetCurrentDirectory или ExtractFilePath(Application.exename) 0

@Second 118 / 80 / 1 Регистрация: 10.08.2011 Сообщений: 664
	10.06.2013, 22:39	10
	Подозреваю, что он жалуется на отсутствие компонента(OpenDialog1) на форме. Боюсь показаться пафосным, но некоторые Ваши вопросы немного шокируют...Вам надо подтянуть уровень знаний до минимального базового. Вы пытаетесь решить задачу, не соответствующую уровню Ваших знаний. 0

~~Dr_Quake~~ Заблокирован
	10.06.2013, 22:59	11
	Сообщение от Second Подозреваю, что он жалуется на отсутствие компонента(OpenDialog1) на форме. Боюсь показаться пафосным, но некоторые Ваши вопросы немного шокируют...Вам надо подтянуть уровень знаний до минимального базового. Вы пытаетесь решить задачу, не соответствующую уровню Ваших знаний. Тем не менее это мелочи в сравнении с получением полного пути через dialogs... 0

@qwsdf 0 / 0 / 0 Регистрация: 10.06.2013 Сообщений: 20
	11.06.2013, 10:48 [ТС]	12
	Сообщение от Dr_Quake Подозреваю, что он жалуется на отсутствие компонента(OpenDialog1) на форме. Боюсь показаться пафосным, но некоторые Ваши вопросы немного шокируют...Вам надо подтянуть уровень знаний до минимального базового. Вы пытаетесь решить задачу, не соответствующую уровню Ваших знаний. А может есть другой код, без компонентов? 0

~~Dr_Quake~~ Заблокирован
	11.06.2013, 11:19	13
	Я ужё всё написал, учиться читать не ко мне. 0

	11.06.2013, 13:27