Примеры на Delphi → Скорость работы процессора, точный таймер

Начиная с pentium mmx, intel ввели в процессор счетчик тактов на 64 бита (Присутствуэт точно и в К6). Для того чтобы посотреть на его содержание, была введена команда "rdtsc" (подробное описание в интеловской мануале).

Опубликовал admin
20 Сен, Четверг 2007г.

Примеры на Delphi → Как программно установить конфигурацию COM-порта

procedure tform1.button1click(sender: tobject);
var
commport: string;
hcommfile: thandle;
buffer: pcommconfig;
size: dword;
begin
commport := 'com1';
{Открываем com-порт}
hcommfile := createfile(pchar(commport),
generic_write, 0, nil, open_existing, file_attribute_normal, 0);
if hcommfile = invalid_handle_value then
begin
showmessage('unable to open ' + commport);
exit;
end;
{Выделяем временный буфер}
getmem(buffer, sizeof(tcommconfig));

Опубликовал admin
21 Май, Понедельник 2007г.

Примеры на Delphi → Как посылать и считывать данные с COM порта, менять параметры (биты данных, четность...)

Я использую для этого следующие команды:
var dcb : tdcb;
com : thandle;
com:=createfile('com2',generic_read+generic_write,0,nil,open_existing,file_attribute_normal,0);
для открытия,
getcommstate(com,dcb);
dcb.baudrate := cbr_9600;
dcb.bytesize := 8;
dcb.parity := 2;
setcommstate(com,dcb);
для инициализации,
writefile(com,buffer,count,respond,nil);
readfile(com,buffer,count,respond,nil);
для работы.
Ответ 3:
Ниже представлен класс для работы
с com-портом. Протестирован в windows 95.

Опубликовал admin
21 Май, Понедельник 2007г.

Примеры на Delphi → Заметки об иконках

Источник: Realcoding.NET

Автор: M0r1arty ( moriarty Shift+2 front.ru )

Публикация осуществляется с разрешения автора и указанием ссылки на источник.


В статье рассматривается механизм хранения иконок в ресурсах EXE и DLL-файлов

Опубликовал admin
22 Апр, Воскресенье 2007г.

Примеры на Delphi → Расширение класса TIniFile для записи/чтения объектов

type
textendedinifile = class (tinifile)
public
procedure writeobject (aobject: tobject; const section: string);
procedure readobject (aobject: tobject; const section: string);
end;

implementation

{$r *.dfm}

uses typinfo;

type
tpropinfo = record
name: string;
kind: ttypekind;
end;

tpropinfoarray = array of tpropinfo;

function getpropertynames (aclass: tclass): tpropinfoarray;
var
i,cnt: integer;
pti: ptypeinfo;
pproplst: pproplist;

Опубликовал admin
17 Апр, Вторник 2007г.


RSS-материал

Программирование для чайников.