Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 17.10.2011, 19:53   #1
ВалекFCRK
Форумчанин
 
Регистрация: 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.
ВалекFCRK вне форума Ответить с цитированием
Старый 17.10.2011, 21:00   #2
ВалекFCRK
Форумчанин
 
Регистрация: 04.06.2011
Сообщений: 120
По умолчанию

Сейчас попрактиковавшись понял. Что не только мемо грузит файл одной строкой. Но и почемуто когда просто с браузера скачиваю скачивается одной строкой. Хотя когда перехожу сюда
http://server-kazan.narod.ru/111.txt
в браузере показывает все по строкам. Но когда сохраняю на компьютер и открываю то все равно все одной строкой. В чем дело?
ВалекFCRK вне форума Ответить с цитированием
Старый 17.10.2011, 21:06   #3
ВалекFCRK
Форумчанин
 
Регистрация: 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 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Загружает файл в мемо одной строкой Валек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