18th
Апр

Как отслеживать ошибки TIdHTTP?

Я посылаю запросы php скрипту в таком виде:


LoginInfo:TStringList;

LoginInfo:=TStringList.Create;
LoginInfo.Add('login='+St_login);
LoginInfo.Add('passw='+St_pass);
str:=idhtp1.Post(server+'yyy.php',LoginInfo);

Если сервер не доступен вылетает ошибка.
Как правильно выловить ошибку?
Т.е. если ошибка есть то сделать то то, нету другое и не останавливало программу.

Знаю про IdHTTP1.ResponseCode но как его применить не знаю.

(читать всё…)

16th
Апр

Найти наименьшее число

Последовательность чисел задаётся следующими формулами:
A1 = 3; A2 = 5; An = 2*Fn-1 + Fn-2
Найдите наименьшее целое n, при котором An будет больше одного миллиона.

(читать всё…)

14th
Апр

Кодировка редактора кода Borland Delphi 7

Какая кодировка текста у редактора кода среды Borland Delphi 7?
И, если я установлю такую же кодировку в notepad++, то при вставке в него скопированного текста из редактора кода будут ли правильно отображаться русские символы ?

Если я открываю *.pas файл в notepad++, то русские символы распознаются правильно, но иногда бывает нужно прямое копирование из IDE в текстовый редактор; открытие *.pas в notepad++ – это уже обходной путь.

Можно ли как то обойтись без обходного пути ?

(читать всё…)

12th
Апр

Решить прогрессию на Паскале

Помогите решить прогрессию на Паскале:

(читать всё…)

11th
Апр

Создать развернутое окно

Нужно создать окно, которое будет сразу развернуто на весь экран. В CreateWindow указываю стиль – WS_OVERLAPPEDWINDOW or WS_VISIBLE or WS_MAXIMIZE, но окно создаётся обычным – на часть экрана с указанным размером. Приходят сообщения WM_RESIZE и WM_PAINT. В моём случае, происходит ресайз битмапа и его отрисовка.
Когда окно полностью отрисовалось и появилось на экране, приходится вызывать SendMessage(MyWND,WM_SYSCOMMAND,SC_ MAXIMIZE,0), чтобы развернуть окно. Но тогда операции ресайза и отрисовки повторятся снова.
В результате, в два раза больше действий, чем нужно.
Как сделать, чтобы окно было развёрнуто сразу при создании, без вызова SendMessage(MyWND,WM_SYSCOMMAND,SC_ MAXIMIZE,0)?

(читать всё…)

10th
Апр

Вычитание (длинная арифметика)

Вычитание. Получить правильную разность двух многозначных чисел (более 15 знаков).
В Турбо Паскаль, вычитать из строки строку, числа идут целые, первое число больше 2-го, буквы отсутствуют.

(читать всё…)

9th

Компонент TImage

Как на компоненте TImage разместить изображение с указанием начальной позиции (x,y) отрисовки?

(читать всё…)

8th
Апр

Лабораторная работа по php

Вычислить расстояние между двумя точками с данными координатами (x1, y1) и (x2, y2).

(читать всё…)

6th
Апр

Visual Basic

Создать строку, которая состоит из первого и последнего символов данной строки.

(читать всё…)



Облако меток

функция компоненты папка реестр регулярные выражения word timer ListView дата ассемблер ShellExecute random MySQL массив SQL pos SaveToFile советы программы RichEdit сеть form LoadFromFile строки html база данных indy php Win Api tstringlist ListBox Image Edit мысли макросы memo графика C/C++ canvas office StringGrid Файлы поиск форма файл excel интернет winapi журнал ПРОграммист Delphi