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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 30.05.2013, 12:33   #1
саша40
Участник клуба
 
Регистрация: 12.09.2012
Сообщений: 1,030
По умолчанию Чтение текстового файла на сервере(WinInet)

Привет. Прописал код:
Код:
var
hSesion,hUrl: HInternet;
Buffer: array [0..1023] of Char;
nRead: Cardinal;
begin
hSesion:=InternetOpen('FindWeb',INTERNET_OPEN_TYPE_PRECONFIG,nil,nil,0);
try
hUrl:=InternetOpenUrl(hSesion,PChar('http://fortergo.3dn.ru/1.txt'),nil,0,0,0); 
try
repeat
InternetReadFile(HUrl,@Buffer,sizeof(Buffer),nRead);
ListBox1.Items.Add(String(Buffer));
until
nRead=0;

finally
InternetCloseHandle(hUrl);
end;

finally
InternetCloseHandle(hSesion);
end;
В файле написано так:
Привет
Как дела?
Это проверка функции.
Всё прошло удачно!

А выдало одной стракой и два раза. Вопрос: Как исправить?
Что нужно программисту: Компьютер, Среда программирование, Воображение, Прямые руки, Мозги, Знания этой среды программирования.
Программист-это профессия, а программирование-это моё хобби.
саша40 вне форума Ответить с цитированием
Старый 30.01.2023, 16:06   #2
Aqel
Пользователь
 
Аватар для Aqel
 
Регистрация: 07.05.2011
Сообщений: 24
Вопрос

Знаю тема старая, но вопрос актуальный такого типа, по коду выше(сделал функцией):
Пытаюсь прочитать текстовый файл с сайта (https://) - кракозябы в ответе. Файл на сайте записан в UTF8, пробовал конвертить в ANSI - толку нет, так же кракозябы.

ВОПРОС: Как сделать, что бы читал нормально, к тому же в файле всего лишь числа?
Всё намного проще, чем есть на самом деле...
Aqel вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Чтение из текстового файла demiancz Общие вопросы Delphi 4 03.11.2012 20:36
Чтение из текстового файла Form_13 Помощь студентам 0 01.11.2011 03:16
чтение с текстового файла salwator Паскаль, Turbo Pascal, PascalABC.NET 0 11.06.2011 15:49
чтение текстового файла Аглан Microsoft Office Access 2 15.02.2011 22:14
Чтение из текстового файла MooNChilDUA Общие вопросы C/C++ 2 13.01.2011 19:25