Немогу сообразить - начинающий (тока-тока)

← →
cambit © (2012-08-29 16:37) [0]

Сильно не пинайте - прочитал только две статьи об азах делфи. Имеется кодvar aa,e:word; port,base,data:word; {.........} aa:=0; base:=$3F8; begin port:=base+4; data:=2; outport(port,aa,data); sleep(10); port:=base+6; e:=inport(port) and 16; port:=base+4; data:=0; outport(port,aa,data); end;

пробую компилировать - выдает:
[Error] Unit1.pas(21): Identifier redeclared: "aa"
[Error] Unit1.pas(22): Identifier redeclared: "base"
[Error] Unit1.pas(24): Statements not allowed in interface part
[Error] Unit1.pas(27): Undeclared identifier: "outport"
[Error] Unit1.pas(30): Undeclared identifier: "inport"
[Error] Unit1.pas(37): Declaration expected but end of file found
[Fatal Error] Project2.dpr(5): Could not compile used unit "Unit1.pas"
Подскажите где косяк?

← →
Amoeba_ (2012-08-29 16:51) [1]

Покажи Unit1.pas полностью, а не его огрызок. Косяки у тебя в той его части, которая осталась "за кадром".

← →
MBo © (2012-08-29 17:00) [2]

Помимо синтаксиса стоит сказать, что работать с компортом так уже не стоит (а без хитрых библиотек и просто невозможно)

← →
cambit © (2012-08-29 17:29) [3]

даю код полностью:
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;

type
TForm1 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
var
aa,e:word;
port,base,data:word;
{.........}
aa:=0;
base:=$3F8;

begin
port:=base+4;
data:=2;
outport(port,aa,data);
sleep(10);
port:=base+6;
e:=inport(port) and 16;
port:=base+4;
data:=0;
outport(port,aa,data);

end.

По поводу порта такой вариант меня полностью устраивает (если заработает, код взял из вот этой статьи: http://dikoy44.narod.ru/ports/IndexPP.htm.
Собственно нужна прога, которая выдает сигнал (на любую ногу СОМ-порта), затем воспроизводит аудиофайл коротенький и снимает сигнал с порта. (объявление по системе оповещения из компьютера).
Помогите, если это возможно.

← →
cambit © (2012-08-29 17:43) [4]

Сигнал имеется ввиду +12 вольт на какую либо ножку СОМ порта

← →
Wadimka (2012-08-29 17:54) [5]

Вот косяк
[Error] Unit1.pas(22): Identifier redeclared: "base"
[Error] Unit1.pas(24): Statements not allowed in interface part
[Error] Unit1.pas(27): Undeclared identifier: "outport"
[Error] Unit1.pas(30): Undeclared identifier: "inport"
[Error] Unit1.pas(37): Declaration expected but end of file found

у тебя создано к проекту твоему еще куча пасов как раз там и ошибки
лучще скопируй свой код
создайно Новый проек
и вставь его туда

← →
DVM © (2012-08-29 17:55) [6]

> cambit © (29.08.12 17:29) [3]

выкинь это все, тут неправильно буквально все.

← →
RWolf © (2012-08-29 17:55) [7]

Это делает функция EscapeCommFunction.

← →
cambit © (2012-08-29 18:26) [8]

А можно чуть по-подробнее - задача имеет чисто прикладное значение, а в Делфи вникать нет времени. Как написать код, чтобы на СОМ1 указанная Вами функция выполнила SETDTR, затем воспроизвелся файл sound.wav, а потом выполнилось бы CLRDTR и программа закрылась.

← →
RWolf © (2012-08-29 19:16) [9]

var h:THandle; begin h:=CreateFile("COM1", GENERIC_READ or GENERIC_WRITE, 0, nil, OPEN_EXISTING, 0, 0); ); EscapeCommFunction(h, SETDTR); PlaySound("sound.wav", 0, 0); EscapeCommFunction(h, CLRDTR); CloseHandle(h); end;

← →
cambit © (2012-08-29 20:03) [10]

Пишет :
[Error] Unit1.pas(21): Statements not allowed in interface part
[Error] Unit1.pas(23): Statement expected but ")" found
[Error] Unit1.pas(25): Undeclared identifier: "PlaySound"
[Fatal Error] Project1.dpr(5): Could not compile used unit "Unit1.pas"

там что-то сверху добавить надо?

> [10] cambit © (29.08.12 20:03)
> там что-то сверху добавить надо?

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

> прочитал только две статьи об азах делфи

Дальше читать не стал.
Ответ: Найми программиста.

Спасибо за совет. Как то сам не додумался...

http://delphimaster.net/view/16-1208434700/

Немогу сообразить - начинающий (тока-тока) Найти похожие ветки