Практически каждый серьезный почтовый клиент имеет в своем составе полезную функцию автоматической настройки профиля почты. Эта функция очень сильно упрощает жизнь рядовым пользователям, которых в
Это перевод What did the Ignore button do in Windows 3.1 when an application encountered a general protection fault? Автор: Реймонд Чен.
Когда ваше приложение вызывало General Protection Fault (GPF, общее нарушение защиты, сегодня известное как Access Violation) в Windows 3.0, система показывала такой диалог об ошибке:
| Application error |
| CONTOSO caused a General Protection Fault in module CONTOSO.EXE at 0002:2403 |
|
Close
|
В Windows 3.1 же вы получали такой диалог при выполнении некоторых условий:
| CONTOSO |
| An error has occurred in your application. If you choose Ignore, you should save your work in a new file. If you choose Close, your application will terminate. |
|
Close
Ignore
|
Хорошо, мы знаем, что делает кнопка «Close» (закрыть). Но что делает кнопка «Ignore» (Игнорировать)? И при каких-таких условиях она появляется?
Говоря грубо, кнопка «Игнорировать» появляется, если:
op r, m; op m, r; или op m.movs, stos, etc.lds, les, pop ds, pop es. Если эти условия выполняются, то показывается кнопка «Игнорировать». А если вы нажмёте на эту кнопку, то ядро выполнит следующее:
pop, то указатель стека увеличивается на два байта;IP переходит на следующую машинную команду;Другими словами, ядро выполняло некий ассемблерный эквивалент для ON ERROR RESUME NEXT.
Так, вы можете подумать: «Как это вообще могло работать? Вы же просто пропускаете выполнение случайных команд!». Как бы это ни было странным, но эта идея была настолько сумасбродной, что она работала — или, по крайней мере, работала достаточно часто. Вам могло понадобится нажать «Игнорировать» дюжину раз, но в итоге был хороший шанс, что плохие значения регистров затрутся хорошими (и, вероятно, это не займёт много времени, поскольку у 8086 было крайне мало регистров), и программа продолжит вроде-как-нормально выполняться.
Полное безумие.
Упражнение: почему коду не нужно было знать, как игнорировать инструкции перехода и условного перехода?
Бонусный тривиальный факт: Разработчик, реализовавший эту сумасшедшую возможность, был Дон Корбитт — автор Доктора Ватсона.
Очередная веха в жизни блога. 15.07.2015 исполнилось 6 лет блогу webdelphi.ru. При этом я бы не назвал 2015 год продуктивным в плане работы в блоге
Недавно получил тестовое задание для трудоустройства от компании Infotecs.
Спешу им поделиться с дорогими читателями.
Необходимо разработать клиент-серверное приложение, работающее по следующему сценарию:
- Клиент после запуска ожидает ввода пользователя.
- Пользователь вводит число в клиент.
- Клиент отправляет число в сервер при помощи протокола TCP и ожидает ввода пользователя.
- Сервер раскладывает число на простые множители и отправляет клиенту ответ.
- Клиент сообщает результат пользователю.
Приложение должно удовлетворять следующим требованиям:
- Клиент должен быть Android-приложением.
- Пользователь может ввести в клиенте несколько чисел, не дожидаясь получения ответов от сервера.
- Сервер должен поддерживать одновременное обслуживание нескольких клиентов.
- Исходный код должен быть хорошо оформлен и иметь комментарии (т.е. должен быть написан так, как вы его пишете всегда).
- Желательно снабдить приложение модульными тестами.
- Сервер должен быть написан в виде Android-сервиса.
- Клиент и сервер должны быть отдельными apk.
Вот ссылка на итоговый проект https://github.com/petrovichtim/InfotecsTestTask
В проекте реализовано 2 модуля клиент (обычная Activity) и сервер (IntentService).
Экран работы клиента:
 |
| Сообщения получаемые окном IE |
TMyWebBrowser = class(TWebBrowser)
protected
procedure WBProcessMessage;
procedure InternalSetValue(const AValue: string);
public
procedure SetValue(const AValue: string); // Входная точка в примера
procedure WaitWB;
end;
function EnumWindowsToFindIEHiddenProc(AHandle: HWND; AParam:NativeInt): boolean; stdcall;
var
IEHiddenHandle: Hwnd;
implementation
procedure TMyWebBrowser.SetValue(const AValue: string);
begin
InternalSetValue(AValue); // выполняем каким либо способом присваивание разметки
WaitWB; // Ждем завершение загрузки документа.
FooFunction; //Какой то функционал для работы которого необходим полностью загруженные html документ.
end;
procedure TMyWebBrowser.WaitWB;
begin
//Как то так обычно выглядит ожидание пока документ полностью не загрузиться
while HTMLDocument2.readyState <> 'complete' do
begin
WBProcessMessage; // выбираем только нужные сообщения
//Forms.Application.ProcessMessages; // выбираем все сообщения из очереди
end;
end;
procedure TbtkHTMLEditor.WBProcessMessage;
var
msg: Windows.tagMSG;
processID : THandle;
begin
IEHiddenHandle := 0;
processID := GetCurrentProcessId;
if EnumWindows(@EnumWindowsToFindIEHiddenProc, processID) then // �щем хендл окна IE в нашем процессе перебирая все окна
if IEHiddenHandle <> 0 then // Проверяем найденный хендл валидный
if PeekMessage(msg, IEHiddenHandle, 0, 0, PM_REMOVE) then // извлекаем из очереди оконных сообщений все сообщения для окна IEHiddenHandle
begin
Windows.DispatchMessage(msg); // Передаем извлеченные сообщения окну IE
end;
end;
function EnumWindowsToFindIEHiddenProc(AHandle: HWND; AParam:NativeInt): boolean;
var
processId: NativeInt;
classbuf: array[0..255] of Char;
const
IEWndClassName = 'Internet Explorer_Hidden';
begin
result := true;
if Windows.GetWindowThreadProcessId(AHandle,@processId) <> 0 then
begin
if AParam = processId then
begin
GetClassName(AHandle, classbuf, SizeOf(classbuf));
if lstrcmp(@classbuf[0], @IEWndClassName[1]) = 0 then
begin
IEHiddenHandle := AHandle;
result := false;
end;
end;
end;
end;
Данная статья является продолжением предыдущей§2.5. Протокольные компонентычасть 2. TREST~ и TDataSet
Часть I. Теория
2.1 Подключение ЯД к Windows
2.2 Создание папки приложения
2.3 Indy и HTTPS
2.4 Скрипач как прокси
2.5 Протокольные
Кажется я первый раз попал в тупик.
Не то, чтобы я сильно умный, но и задачка — не «Балтика 9».
Первая часть задачи выглядела вот так:
Что
http://alexander-bagel.blogspot.com/2015/04/18-gunsmoker.html
