Последняя версия DataExpress 3 beta от 15 ноября 2020 года.

Изображение Скачать | Изображение Что нового?



Объявление:

Если вам понравилась программа и вы ее интенсивно используете - замолвите словечко о ней на вашем сайте (блоге, форуме, твитере, краской на подъезде, ютуб-канале и т.д.) с активной (по-возможности) ссылкой на сайт программы/форум. Тем самым вы можете внести небольшой вклад в seo-карму проекта в виде входящих ссылок.
Спасибо! Администрация :)


>> Обсудить <<


Внимание! Кража данных


Заполнение dxEdit из файла txt на локальном диске

Все вопросы, связанные с написанием скриптов и SQL-запросов.
Аватара пользователя
Иван
Интересующийся
Сообщения: 215
Зарегистрирован: 22 дек 2018, 14:16
Откуда: Kiev
Благодарил (а): 33 раза
Поблагодарили: 51 раз

Заполнение dxEdit из файла txt на локальном диске

Сообщение Иван » 30 апр 2019, 22:32

Как вернуть текст из txt файла на диске в поле dxEdit?

По сути желание сделать такой себе аналог ini файла у каждого пользователя на клиентском ПК где будет указано имя компьютера или еще какие либо настройки. Memo в принципе уже решает вопрос, хотелось добить первоначальную задачку.

Вопрос достаточно банален, но как то не получилось его решить. Походу дела решил как получать данные из файла в dxMemo и из ссылки на файл txt по http в dxEdit, а вот из файла на диске в dxEdit не выходит.
Оставлю то что вышло тут, может кому сэкономит время.

Код: Выделить всё

procedure GetPC (Sender: TObject);
begin
dxMemo1.Lines.LoadFromFile('C:\pc.txt');
end;

procedure Form_Create;
begin
Self.EditWindow.OnShow:= @GetPC;
end;



Код: Выделить всё

var
  HC: THttpClient;

procedure GetPC (Sender: TObject);
begin
  HC := THttpClient.Create;
  HC.Async := True;
  HC.Send('post', 'http://stdb.ddns.net:85/111.txt');
  begin
  if Self['Пользователь'] =  'Админ' then
  Self.Edit;
  Self['Путь Диск'] := HC.Content;
  Self.Post;
  HC.Free;
  exit;
  end
  end;

procedure Form_Create;
begin
Self.EditWindow.OnShow:= @GetPC;
end;

Аватара пользователя
Иван
Интересующийся
Сообщения: 215
Зарегистрирован: 22 дек 2018, 14:16
Откуда: Kiev
Благодарил (а): 33 раза
Поблагодарили: 51 раз

Re: Заполнение dxEdit из файла txt на локальном диске

Сообщение Иван » 01 май 2019, 13:08

Вопрос решил. Сделал походу дела новую функцию. Добавляет текст из файла по ссылке в текстовое поле.

Код: Выделить всё

GetTXT ('C:\111.txt')
Вложения
GetTXT.rar
(760 байт) 78 скачиваний


Вернуться в «Программирование в DataExpress»