Фукция асемблера?

← →
иван8511 (2006-08-28 19:08) [0]

Прочел статью, как печатать на матричном принтере. Типа
ОТкройте файл типа TextFile и пишите в него напрямую:

var
Lst: TextFile;
begin
AssignFile(Lst, "LPT1");
Rewrite(Lst);
WriteLn(Lst, "Здравствуй, мир!");
Close(Lst);
end.

Если вы планируете посылать на принтер управляющие коды, вызывайте следующую функцию немедленно после перезаписи файла:

procedure SetBinaryMode (var F: Text); assembler;
asm
mov ax,$4400
les di,F
mov bx,word ptr es:[di]
int $21
or dl,$20
xor dh,dh
mov ax,$4401
int $21
end;
С первой частью все понятно, а вот вторая трудно. Подскажите как использовать нижнюю функцию, где она должна быть, как ее описывать?

← →
Fay © (2006-08-28 19:21) [1]

2 иван8511 (28.08.06 19:08)
> Подскажите как использовать нижнюю функцию
Никак. Забудь. CreateFile и фсё.

← →
guav © (2006-08-28 20:04) [2]

> С первой частью все понятно, а вот вторая трудно. Подскажите
> как использовать нижнюю функцию, где она должна быть, как
> ее описывать?

Эта функция написана для досовского паскаля и устарела.

Дай ссылку на статью.

Код в той ветке не работает или не проверял ?

← →
иван8511 (2006-08-28 20:44) [3]

Первая часть кода работает без проблемм,
var
Lst: TextFile;
begin
AssignFile(Lst, "LPT1");
Rewrite(Lst);
WriteLn(Lst, "Здравствуй, мир!");
Close(Lst);
end.

а вот вторую не знаю куда набирать

> вторую не знаю куда набирать

Тебе же сказали, не будет она работать в [D6, XP] .

Если вы планируете посылать на принтер управляющие коды, то скоре всего надо открыть файл как F:File of Byte;

> где она должна быть, как ее описывать?

> вызывайте следующую функцию немедленно после перезаписи
> файла:

Тобишь после Rewrite

> procedure SetBinaryMode (var F: Text); assembler;
> asm
> mov ax,$4400
> les di,F
> mov bx,word ptr es:[di]
> int $21
> or dl,$20
> xor dh,dh
> mov ax,$4401
> int $21
> end;

Функция досовская, преднозначена для паскаля. Более того использует не документированный формат переменной F:Text;

Фукция асемблера? Найти похожие ветки