Отправляет email-рассылки с помощью сервиса Sendsay

RFpro.ru: Программирование на Delphi и Lazarus

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 3.306 RSS
←   Май 2011   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31


За последние 60 дней ни разу не выходила


Сайт рассылки: http://rusfaq.ru/
Открыта: 14-03-2002

Автор
Калашников О.А.

Статистика

3.306 подписчиков
0 за неделю
←   Все выпуски   →

RFpro.ru: Программирование на Delphi и Lazarus


Хостинг портала RFpro.ru:
Московский хостер
Профессиональный ХОСТИНГ на базе Linux x64 и Windows x64

РАССЫЛКИ ПОРТАЛА RFPRO.RU

Лучшие эксперты данной рассылки

Орловский Дмитрий
Статус: Академик
Рейтинг: 4643
∙ повысить рейтинг » 		Boriss
Статус: Академик
Рейтинг: 2634
∙ повысить рейтинг » 		cradlea
Статус: Практикант
Рейтинг: 1579
∙ повысить рейтинг »

/ КОМПЬЮТЕРЫ И СОФТ / Программирование / Delphi и Lazarus

Номер выпуска:1594
Дата выхода:06.05.2011, 18:00
Администратор рассылки:Киселёва Алёна aka Verena (Профессор)
Подписчиков / экспертов:253 / 181
Вопросов / ответов:1 / 1

Вопрос № 183010: Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос: написала программу в delphi 7 в ос windows xp( управление шаговым двигателем через lpt - порт). попыталась запустить программу в windows 98, выдала ошибку требует наличия нек...

Вопрос № 183010:

Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос: написала программу в delphi 7 в ос windows xp( управление шаговым двигателем через lpt - порт). попыталась запустить программу в windows 98, выдала ошибку требует наличия некоторых библиотек. как мне запустить программу? может нужна другая версия delphi?

Отправлен: 01.05.2011, 17:35
Вопрос задал: Невалёный Виталий Владимирович (Посетитель)
Всего ответов: 1
Страница вопроса »

Отвечает Евгений/Genia007/ (Профессионал) :
Здравствуйте, Невалёный Виталий Владимирович!
Для решения Вашей задачи предлагаю для управления портом LPT использовать драйвер TDLPortIO, который работает как в win xp, так и в win 98-95, скачать драйвер можно здесь. А здесь его описание, правда на английском языке. Вот переделанный исходник под этот драйвер
Код:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Menus, PortIO, ExtCtrls, ComCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;    Button1: TButton;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    CheckBox5: TCheckBox;
    CheckBox6: TCheckBox;
    CheckBox7: TCheckBox;
    MainMenu1: TMainMenu;

   N1: TMenuItem;
    N11: TMenuItem;
    N21: TMenuItem;
    N31: TMenuItem;
    N41: TMenuItem;
    N51: TMenuItem;
    N61: TMenuItem;
    N71: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N12: TMenuItem;
    N22: TMenuItem;
    N32: TMenuItem;
    N42: TMenuItem;
    N52: TMenuItem;
    N62: TMenuItem;
    N72: TMenuItem;
    Label8: TLabel;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit10: T
 Edit;
    Edit11: TEdit;
    Edit12: TEdit;
    Edit13: TEdit;
    Edit14: TEdit;
    Panel1: TPanel;
    Shape1: TShape;
    Shape2: TShape;
    Shape3: TShape;
    Shape4: TShape;
    Shape5: TShape;
    Shape6: TShape;
    Shape7: TShape;
    DLPortIO1: TDLPortIO;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    procedure N72Click(Sender: TObject);

   procedure N62Click(Sender: TObject);
    procedure N52Click(Sender: TObject);
    procedure N42Click(Sender: TObject);
    procedure N32Click(Sender: TObject);
    procedure N22Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N71Click(Sender: TObject);
    procedure N61Click(Sender: TObject);
    procedure N51Click(Sender: TObject);
    procedure N41Click(Sender
 : TObject);
    procedure N31Click(Sender: TObject);
    procedure N21Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    Procedure c1_7;
    Procedure c7_5;
    Procedure c5_5;
    Procedure c5_2;
    Procedure c2_3;
    Procedure c3_5;
    Procedure c5_1;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    private
    { Private declarations
}
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  z1,z2,z3,z4,z5,z6,z7:integer;
  x1,x2,x3,x4,x5,x6,x7:integer;
  DataPort: Word;     // Порт для данных
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
   // Запускаем драйвер порта из директории с программой
   DLPortIO1.DriverPath:=ExtractFileDir(ParamStr(0));
   // Открываем DriverLINX driver
   DLPortIO1.OpenDr
 iver();
   if (not DLPortIO1.ActiveHW) then
   begin
      MessageDlg('Не могу открыть DriverLINX driver.', mtError, [mbO
K], 0);
   end;
end;

procedure TForm1.N11Click(Sender: TObject);
begin
CheckBox1.Checked:=False;
end;



procedure TForm1.N12Click(Sender: TObject);
begin
CheckBox1.Checked:=True;
end;

procedure TForm1.N21Click(Sender: TObject);
begin
CheckBox2.Checked:=False;
end;

procedure TForm1.N22Click(Sender: TObject);
begin
CheckBox2.Checked:=True;
end;

procedure TForm1.N2Click(Sender: TObject);
begin
CheckBox1.Checked:=True;
CheckBox2.Checked:=True;
CheckBox3.Checked:=True;
CheckBox4.Checked:=True;
CheckBox5.Checked:=True;
CheckBox6.Checked:=True;
CheckBox7.Checked:=True;
end;

procedure
TForm1.N31Click(Sender: TObject);
begin
CheckBox3.Checked:=False;
end;

procedure TForm1.N32Click(Sender: TObject);
begin
CheckBox3.Checked:=True;
end;

procedure TForm1.N41Click(Sender: TObject);
begin
CheckBox4.Checked:=False;
end;

procedure
  TForm1.N42Click(Sender: TObject);
begin
CheckBox4.Checked:=True;
end;

procedure TForm1.N51Click(Sender: TObject);
begin
CheckBox5.Checked:=False;
end;

procedure TForm1.N52Click(Sender: TObject);
begin
CheckBox5.Checked:=True;
end;

procedure TForm1.N61Click(Sender: TObject);
begin
CheckBox6.Checked:=False;
end;

procedure TForm1.N62Click(Sender: TObject);
begin
CheckBox6.Checked:=True;
end;

procedure TForm1.N71Click(Sender: TObject);
begin
CheckBox7.Checked:=False;
end;

procedure
TForm1.N72Click(Sender: TObject);
begin
CheckBox7.Checked:=True;
end;

Procedure TForm1.c1_7;
var
  i: integer;
begin
   for i:= 1 to 7 do
      TShape(FindComponent('Shape'+ inttostr(i))).Brush.Color:= clWhite;
   // Получаем адрес порта данных
   try
      DataPort:= Word($378);
   except
      MessageDlg('Вы определили недействительный порт.'+
 #13+
                 'Действие не выполнено.',
                 mtError, [mbOK], 0);
      Exit;
   end;
  for i := 1 to x1 do
    begin
      // Напишите данные
      DLPortIO1.Port[DataPort]:= $8;
      Sleep(z1);
      // Напишите данные
      DLPortIO1.Port[DataPort]:= $4;
      Sleep(z1);
      // Напишите данные
      DLPortIO1.Port[DataPort]:= $2;
      Sleep(z1);
      // Напишите данные
      DLPortIO1.Port[DataPort]:= $1;
      Sleep(z1);

     case i of
        1: Shape1.Brush.Color:= clRed;
        1940: begin
                Shape1.Brush.Color:= clWhite;
                Shape2.Brush.Color:= clRed;
              end;
        3880: begin
                Shape2.Brush.Color:= clWhite;
                Shape3.Brush.Color:= clRed;
              end;
        5820: begin
                Shape3.Brush.Color:= clWhite;
                Shape4.Brush.Color:= clRed;
        
       end;
        7760: begin
                Shape4.Brush.Color:= clWhite;
                Shape5.Brush.Color:= clRed;
              end;
        9700: begin
                Shape5.Brush.Color:= clWhite;
                Shape6.Brush.Color:= clRed;
              end;
        11640: begin
                Shape6.Brush.Color:= clWhite;
                Shape7.Brush.Color:= clRed;
              end;
      end;
      Application.ProcessMessages;
    end;
end;

Procedure
TForm1.c7_5;
var
  i: integer;
begin
   for i:= 1 to 7 do
      TShape(FindComponent('Shape'+ inttostr(i))).Brush.Color:= clWhite;
   // Получаем адрес порта данных
   try
      DataPort:= Word($378);
   except
      MessageDlg('Вы определили недействительный порт.'+#13+
                 'Действие не выполнено.',
                 mtError, [mbOK], 0);
      Exit;
   end;
  for i := 1 to x2 do    begin
      // Напишите данные
      DLPortIO1.Port[DataPort]:= $1;
      Sleep(z2);
      // Напишите данные
      D
LPortIO1.Port[DataPort]:= $2;
      Sleep(z2);
      // Напишите данные
      DLPortIO1.Port[DataPort]:= $4;
      Sleep(z2);
      // Напишите данные
      DLPortIO1.Port[DataPort]:= $8;
      Sleep(z2);
      case i of
        1: Shape7.Brush.Color:= clRed;
        1940: begin
                Shape7.Brush.Color:= clWhite;
                Shape6.Brush.Color:= clRed;
              end;
        3880: begin
                Shape6.Brush.Color:= clWhite;
         
      Shape5.Brush.Color:= clRed;
              end;
      end;
      Application.ProcessMessages;
    end;
end;

Procedure TForm1.c5_5;
var
  i: integer;
begin
   for i:= 1 to 7 do
      TShape(FindComponent('Shape'+ inttostr(i))).Brush.Color:= clWhite;
   // Получаем адрес порта данных
   try
      DataPort:= Word($378);
   except
      MessageDlg('Вы определили недействительный порт.'+#13+
           
       'Действие не выполнено.',
                 mtError, [mbOK], 0);
      Exit;
   end;
   // Напишите данные
   DLPortIO1.Port[DataPort]:= $0;
   Sleep(z3);
   Shape5.Brush.Color:= clRed;
   Application.ProcessMessages;
end;

Procedure TForm1.c5_2;
var
  i: integer;
begin
   for i:= 1 to 7 do
      TShape(FindComponent('Shape'+ inttostr(i))).Brush.Color:= clWhite;
   // Получаем адрес порта данных
   try
      DataPort:= Word($378);

  except
      MessageDlg('Вы определили недействительный порт.'+#13+
                 'Действие не выполнено.',
                 mtError, [mbOK], 0);
      Exit;
   end;
  for i := 1 to x4 do
    begin
      // Напишите данные
      DLPortIO1.Port[DataPort]:= $1;
      Sleep(z4);
      // Напишите данные
      DLPortIO1.Port[DataPort]:= $2;
      Sleep(z4);
      // Напишите данные
      DLPortIO1.Port[Data
 Port]:= $4;
      Sleep(z4);
      // Напишите данные
      DLPortIO1.Port[DataPort]:= $8;
      Sleep(z4);
      case i of
        1: Shape5.Brush.Color:= clRed;
        1940: begin
                Shape5.Brush.Color:= clWhite;
                Shape4.Brush.Color:= clRed;
              end;
        3880: begin
                Shape4.Brush.Color:= clWhite;
                Shape3.Brush.Color:= clRed;
              end;
        5820: begin
                Shape3.Brush.Color:=
clWhite;
                Shape2.Brush.Color:= clRed;
              end;
      end;
      Application.ProcessMessages;
    end;
end;

Procedure TForm1.c2_3;
var
  i: integer;
begin
   for i:= 1 to 7 do
      TShape(FindComponent('Shape'+ inttostr(i))).Brush.Color:= clWhite;
   // Получаем адрес порта данных
   try
      DataPort:= Word($378);
   except
      MessageDlg('Вы определили недействите
 льный порт.'+#13+
                 'Действие не выполнено.',
                 mtError, [mbOK], 0);
      Exit;
   end;
  for i := 1 to x5 do
    begin
      // Напишите данные
      DLPortIO1.Port[DataPort]:= $8;
      Sleep(z5);
      // Напишите данные
      DLPortIO1.Port[DataPort]:= $4;
      Sleep(z5);
      // Напишите данные
      DLPortIO1.Port[DataPort]:= $2;
      Sleep(z5);
      // Напишите данные
      DLPortIO1.Port[DataPort]:= $1;

     Sleep(z5);
      case i of
        1: Shape2.Brush.Color:= clRed;
        1940: begin
                Shape2.Brush.Color:= clWhite;
                Shape3.Brush.Color:= clRed;
              end;
      end;
      Application.ProcessMessages;
    end;
end;

Procedure TForm1.c3_5;
var
  i: integer;
begin
   for i:= 1 to 7 do
      TShape(FindComponent('Shape'+ inttostr(i))).Brush.Color:= clWhite;
   // По
 лучаем адрес порта данных
   try
      DataPort:= Word($378);
   except
      MessageDlg('Вы определили недействительный п
орт.'+#13+
                 'Действие не выполнено.',
                 mtError, [mbOK], 0);
      Exit;
   end;
  for i := 1 to x6 do
    begin
      // Напишите данные
      DLPortIO1.Port[DataPort]:= $8;
      Sleep(z6);
      // Напишите данные
      DLPortIO1.Port[DataPort]:= $4;
      Sleep(z6);
      // Напишите данные
      DLPortIO1.Port[DataPort]:= $2;
      Sleep(z6);
      // Напишите данные
      DLPortIO1.Port[DataPort]:= $1;
   
  Sleep(z6);
      case i of
        1: Shape3.Brush.Color:= clRed;
        1940: begin
                Shape3.Brush.Color:= clWhite;
                Shape4.Brush.Color:= clRed;
              end;
        3880: begin
                Shape4.Brush.Color:= clWhite;
                Shape5.Brush.Color:= clRed;
              end;
      end;
      Application.ProcessMessages;
    end;
end;

Procedure TForm1.c5_1;
var
  i: inte
 ger;
begin
   for i:= 1 to 7 do
      TShape(FindComponent('Shape'+ inttostr(i))).Brush.Color:= clWhite;
   // Получаем адрес порта данных
   try
      DataPort:= Word($378);
   except
      MessageDlg('Вы определили недействительный порт.'+#13+
                 'Действие не выполнено.',
                 mtError, [mbOK], 0);
      Exit;
   end;
  for i := 1 to x7 do
    begin
      // Напишите данные
      DLPortIO1.Port[DataPort]:= $1;

     Sleep(z7);
      // Напишите данные
      DLPortIO1.Port[DataPort]:= $2;
      Sleep(z7);
      // Напишите данные
      DLPortIO1.Port[DataPort]:= $4;
      Sleep(z7);
      // Напишите данные
      DLPortIO1.Port[DataPort]:= $8;
      Sleep(z7);
      case i of
        1: Shape5.Brush.Color:= clRed;
        1940: begin
                Shape5.Brush.Color:= clWhite;
                Shape4.Brush.Color:= clRed;
         
      end;
        3880: begin
                Shape4.Brush.Color:= clWhite;
                Shape3.Brush.Color:= clRed;
              end;
        5820: begin
                Shape3.Brush.Color:= clWhite;
                Shape2.Brush.Color:= clRed;
              end;
        7760: begin
                Shape2.Brush.Color:= clWhite;
                Shape1.Brush.Color:= clRed;
              end;
      end;
      Application.ProcessMessages;
    end;
end;

procedure
TForm1.Button1Click(Sender: TObject);
begin
z1:=StrToInt(Edit1.Text);     x1:=StrToInt(Edit8.Text);
z2:=StrToInt(Edit2.Text);     x2:=StrToInt(Edit9.Text);
z3:=StrToInt(Edit3.Text);     x3:=StrToInt(Edit10.Text);
z4:=StrToInt(Edit4.Text);     x4:=StrToInt(Edit11.Text);
z5:=StrToInt(Edit5.Text);     x5:=StrToInt(Edit12.Text);
z6:=StrToInt(Edit6.Text);     x6:=StrToInt(Edit13.Text);
z7:=StrToInt(Edit7.Text);     x7:=StrToInt(Edit14.Text);
if CheckBox1.Checked=True then c1_7;
if CheckBox2.Checked=True then c7_5;
if CheckBox3.Checked=True then c5_5;
if CheckBox4.Checked=True then c5_2;
if CheckBox5.Checked=True then c2_3;
if CheckBox6.Checked=True then c3_5;
if CheckBox7.Checked=True then c5_1;
   // Получаем адрес порта данных
   try
      DataPort:= Word($378);
   except
      MessageDlg('Вы определили недействительный порт.'+#13+
                 'Действие не выполнено.',
            
    mtError, [mbOK], 0);
      Exit;
   end;
  // Напишите данные
  DLPortIO1.Port[DataPort]:= $0;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  DLPortIO1.CloseDriver();
end;

end.
В программе не реализована проверка на окончание работы циклов движения шагового двигателя при закрытии программы, из-за чего во время работы двигателя программа выдаст ошибку. Весь проект в прикрепл ённом файле. Прикрепленный файл: загрузить »

-----
Помогли тебе, помоги и ты.

Ответ отправил: Евгений/Genia007/ (Профессионал)
Ответ отправлен: 03.05.2011, 19:45
Номер ответа: 266934
Казахстан, Петропавловск
Тел.: 87776918987
Адрес сайта: Выложены мои программы со статусом freeware
ICQ # 573729535
Абонент Skype: jonixjon

Оценка ответа: 5
Комментарий к оценке:
БОЛЬШОЕ СПАСИБО!!!

Вам помог ответ? Пожалуйста, поблагодарите эксперта за это!
Как сказать этому эксперту "спасибо"?
  • Отправить SMS #thank 266934 на номер 1151 (Россия) | Еще номера »
  • Отправить WebMoney:

    • Оценить выпуск »
    Нам очень важно Ваше мнение об этом выпуске рассылки!

    Задать вопрос экспертам этой рассылки »

    Скажите "спасибо" эксперту, который помог Вам!

    Отправьте СМС-сообщение с тестом #thank НОМЕР_ОТВЕТА
    на короткий номер 1151 (Россия)
    Номер ответа и конкретный текст СМС указан внизу каждого ответа.

    Полный список номеров »

    * Стоимость одного СМС-сообщения от 7.15 руб. и зависит от оператора сотовой связи. (полный список тарифов)
    ** При ошибочном вводе номера ответа или текста #thank услуга считается оказанной, денежные средства не возвращаются.
    *** Сумма выплаты эксперту-автору ответа расчитывается из суммы перечислений на портал от биллинговой компании.

    © 2001-2011, Портал RFPRO.RU, Россия
    Авторское право: ООО "Мастер-Эксперт Про"
    Калашников О.А. | Гладенюк А.Г.
    Хостинг: Компания "Московский хостер"
    Версия системы: 2011.6.31 от 03.04.2011
    В избранное