|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
17.10.2011, 19:53 | #1 |
Форумчанин
Регистрация: 04.06.2011
Сообщений: 120
|
После FTP загрузки файла, меом грузит его одной строкой
Если вручную загружать этот файл
http://server-kazan.narod2.ru/111.txt 18766861 фывфывфыв ячсячс ячсячс ячсячс ячсячс 3 на сервер программа его считывает построчно! Тоесть так как в файле и написано! Ну а если же загружать этот файл через ftp. То программа его считывает в мемо одной строкой. Почему так. Подскажите. Вот так я его груж у в мемо Memo1.Text:=utf8toansi(idHTTP1.Get( 'http://server-kazan.narod.ru/111.txt')); А вот так я его гружу через ftp: var n,m:integer; begin Memo1.Lines.Add(floattostr(m+1)); Memo1.Lines.Add(edit1.text); Memo1.Lines.Add(edit5.text); Memo1.Lines.Add(edit2.text); Memo1.Lines.Add(edit3.text); Memo1.Lines.Add(edit4.text); case ComboBox1.Itemindex of 0:Memo1.Lines.Add('1'); 1:Memo1.Lines.Add('2'); 2:Memo1.Lines.Add('3'); 3:Memo1.Lines.Add('4'); end; Memo1.Text:=ansitoutf8(Memo1.Text); Memo1.Lines.SaveToFile('111.txt'); try If (IdFTP1.Connected) then Begin IdFTP1.Abort; IdFTP1.Quit; End; //Задаем параметры доступа к серверу IdFTP1.Username := 'server-kazan'; IdFTP1.Password := '89518901998'; IdFTP1.Host := 'server-kazan.ftp.narod.ru'; try IdFTP1.Connect; If IdFTP1.Connected then Begin IdFTP1.ChangeDir('/'); IdFTP1.Put('111.txt', '111.txt'); // IdFTP1.Put('C:\file2.gif', 'file2.gif'); IdFTP1.Quit; End; ShowMessage('Загрузка файла на сервер завершена.'); except ShowMessage('Ошибка при загрузке файла на сервер.'); end; finally IdFTP1.Free; DeleteFile('111.txt'); end; Вот как считывает его программа в мемо: Последний раз редактировалось ВалекFCRK; 17.10.2011 в 20:18. |
17.10.2011, 21:00 | #2 |
Форумчанин
Регистрация: 04.06.2011
Сообщений: 120
|
Сейчас попрактиковавшись понял. Что не только мемо грузит файл одной строкой. Но и почемуто когда просто с браузера скачиваю скачивается одной строкой. Хотя когда перехожу сюда
http://server-kazan.narod.ru/111.txt в браузере показывает все по строкам. Но когда сохраняю на компьютер и открываю то все равно все одной строкой. В чем дело? |
17.10.2011, 21:06 | #3 |
Форумчанин
Регистрация: 04.06.2011
Сообщений: 120
|
Все стало ещё проще. Попробовав загрузить файл который я создаю в програмке вручную а не через ftp я тоже не смог его скачать построчно. А когда создавал в блокноте тоже самое и загружал то смог. Следовательно проблема в том месте кода. где я создаю файл. Теперь мне нужна ваша помощь в этом коде. Что я делаю не так.
var n,m:integer; begin Memo1.Lines.Add(floattostr(m+1)); Memo1.Lines.Add(edit1.text); Memo1.Lines.Add(edit5.text); Memo1.Lines.Add(edit2.text); Memo1.Lines.Add(edit3.text); Memo1.Lines.Add(edit4.text); case ComboBox1.Itemindex of 0:Memo1.Lines.Add('1'); 1:Memo1.Lines.Add('2'); 2:Memo1.Lines.Add('3'); 3:Memo1.Lines.Add('4'); end; Memo1.Text:=ansitoutf8(Memo1.Text); Memo1.Lines.SaveToFile('111.txt'); try If (IdFTP1.Connected) then Begin IdFTP1.Abort; IdFTP1.Quit; End; //Задаем параметры доступа к серверу IdFTP1.Username := 'server-kazan'; IdFTP1.Password := '89518901998'; IdFTP1.Host := 'server-kazan.ftp.narod.ru'; try IdFTP1.Connect; If IdFTP1.Connected then Begin IdFTP1.ChangeDir('/'); IdFTP1.Put('111.txt', '111.txt'); // IdFTP1.Put('C:\file2.gif', 'file2.gif'); IdFTP1.Quit; End; ShowMessage('Загрузка файла на сервер завершена.'); except ShowMessage('Ошибка при загрузке файла на сервер.'); end; finally IdFTP1.Free; DeleteFile('111.txt'); end; |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Загружает файл в мемо одной строкой | ВалекFCRK | Общие вопросы Delphi | 1 | 14.10.2011 21:29 |
Вывод в Memo по Таймеру одной строкой | samsung | Общие вопросы Delphi | 5 | 16.07.2010 12:25 |
Ошибка загрузки файла на FTP!!! | $T@LKER | Работа с сетью в Delphi | 7 | 16.05.2010 18:33 |
Язык Си. Записать в **а, адрес пременной одной строкой. | Yaskovich | Помощь студентам | 3 | 06.03.2010 14:51 |
Минимальное приложение для загрузки файла на FTP | Gambler | Работа с сетью в Delphi | 6 | 29.01.2008 22:58 |