Понадобилось сделать смс рассылки. Был порадован массой готовых решений для Delphi. Остановился на https://smsc.ru/ Вот мой небольшой пример Цифры здесь означают (<id>, <количество sms>, <стоимость>, Читать на сайте автора.
В данном посте посмотрим, как разделить файл на части (так называемые chunks), передать его на сервер и собрать там обратно. Для начала опишу общую идею. Читать на сайте автора.
Обычно, когда создаю визуальный компонент, делаю так… Чтобы упростить себе задачу и добавить хоть каплю визуального проектирования, добавляю фрэйм, который в основном компоненте создаю Читать на сайте автора.
Работал с FTP протоколом, но столкнулся с рядом ограничений, которые как я понял можно преодолеть при помощи HTTP протокола. Решил научиться работать с ним. Сегодня Читать на сайте автора.
Иногда приходится делать рискованные вещи. В силу тех или иных ограничений. В одной из последних задач – ограничением было не использование базы данных. А данные-то Читать на сайте автора.
Соберем все файлы, кроме папок из определенной директории на FTP сервере при помощи компонента idFTP //Recursive listing of files… procedure TVisualFrame_PSFTPClient.ListAllFilesCore(dir:string); var DL: TStringList; i: Integer; Читать на сайте автора.
Как организовать удобную структуру для хранения и переноса своих программ и компонентов? Пока не нашел ответа на этот вопрос. Это короткая заметка об использовании компонентов Читать на сайте автора.
Часто встречается множество булевых параметров, которые нужно хранить в базе. Что-то существует или не существует. Что-то true или false. И когда таких параметров несколько десятков Читать на сайте автора.
Простая проверка возможности прочитать файл. //True – файл открыт для чтения. Иначе – False. function IsFileOkToRead(const aFileName : String; var EMessage:string) : Boolean; var F:TFileStream; begin Result:=false; Читать на сайте автора.
Данный пост является развитием предыдущего. Будем сортировать один TStringList -другие же приводить в соответствие с переставленными элементами. SLToSort SLToSort BeforeSort AfterSort 0 1 0 3 1 Читать на сайте автора.