VPF::Соединение приложений - Форум программистов

COOLJohn

Дата 11.1.2006, 16:42 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 33
Регистрация: 30.12.2005

Репутация: нет
Всего: нет

Вот что накорябал в "главном" приложение, но выскакивает какая-то ошибка

Код


unit Telephone;

interface

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

type
  TForm1 = class(TForm)
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    BitBtn1: TBitBtn;
    RadioButton1: TRadioButton;
    procedure BitBtn1Click(Sender: TObject);
    procedure RadioButton3Click(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.RadioButton3Click(Sender: TObject);
var h:file;
begin
RadioButton1.Checked:=False;
RadioButton2.Checked:=False;
RadioButton3.Checked:=True;
BitBtn1.Enabled:=True;
if BitBtn1.OnClick then begin Assign(h,'Programm3.exe'); Rewrite(h); CloseFile(Telephone.exe); end;
end;

procedure TForm1.RadioButton1Click(Sender: TObject);
var g:file;
begin
RadioButton1.Checked:=True;
RadioButton2.Checked:=False;
RadioButton3.Checked:=False;
BitBtn1.Enabled:=True;
if BitBtn1.OnClick then begin Assign(g,'Programm2.exe'); Rewrite(g); CloseFile(Telephone.exe); end;
end;

procedure TForm1.RadioButton2Click(Sender: TObject);
var f:file;
begin
RadioButton1.Checked:=False;
RadioButton2.Checked:=True;
RadioButton3.Checked:=False;
BitBtn1.Enabled:=True;
if BitBtn1.OnClick then begin Assign(f,'Programm1.exe'); Rewrite(f); CloseFile(Telephone.exe) end;
end;

end.

Демо

Дата 11.1.2006, 17:06 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1278
Регистрация: 3.11.2005

Репутация: 30
Всего: 50

но выскакивает какая-то ошибка

Ну нам-то тем более неизвестно, что за ошибка.
Да и непонятно, что ты хотел сделать.

--------------------

Alexeis

Дата 11.1.2006, 17:17 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459

Цитата

Assign(f,'Programm1.exe');

Не забываем что в Delphi не Assign а AssignFile используется.
Добавлено @ 17:19
А как понимать ?

Цитата

if BitBtn1.OnClick then

Кроме того для кода есть кнопочка Код.

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

Albinos_x

Дата 11.1.2006, 17:19 (ссылка)

(нет голосов)

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 26
Всего: 108

1. Используйте теги [code=delphi].
2. Какая ошибка и в каком месте?
3.

Цитата

if BitBtn1.OnClick then begin Assign(h,'Programm3.exe'); Rewrite(h); CloseFile(Telephone.exe); end;

енто что? Насколько я помню в делфи привязка файла к переменной делается командой AssignFile(f,Filename)
4. По тойже строке... почему открываете один файл, а закрываете непонятно что:

Цитата

CloseFile(Telephone.exe);

должно быть так:

Код


CloseFile(f);

5. При чём здесь слияние приложений и ваш код вообще не пойму... он только создаст 3 пустых файла: Programm1.exe, Programm2.exe, Programm3.exe
6. Что Вы понимаете под слиянием приложений?

--------------------

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

Guedda

Дата 11.1.2006, 20:28 (ссылка)

(нет голосов)

Загрузка ...

Подрывник

Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

Репутация: 14
Всего: 78

А, по-моему, даже если исправить ошибки с Assign, то ничего происходить не будет, так как есть такая строчка:

Код


procedure TForm1.RadioButton1Click(Sender : TObject);
if BitBtn1.OnClick then... //Интересно, как нажать сразу и кнопку, и радиокнопку :)

--------------------

Ll 2

Albinos_x

Дата 11.1.2006, 20:49 (ссылка)

(нет голосов)

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 26
Всего: 108

Цитата(Guedda @ 11.1.2006, 20:28

)

А, по-моему, даже если исправить ошибки с Assign, то ничего происходить не будет, так как есть такая строчка:

код Pascal/Delphi
procedure TForm1.RadioButton1Click(Sender : TObject);
if BitBtn1.OnClick then... //Интересно, как нажать сразу и кнопку, и радиокнопку smile

у него эта строчка не откомпилится (не совместимость типов, if требует булевое значение, а не TNotifyEvent).... а вот что он ей хотел сделать... непонятно...

Это сообщение отредактировал(а) Albinos_x - 11.1.2006, 20:52

--------------------

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

Guedda

Дата 11.1.2006, 20:51 (ссылка)

(нет голосов)

Загрузка ...

Подрывник

Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

Репутация: 14
Всего: 78

Я ж про то же...
В общем, код полностью не рабочий. Необходимо сначала выучить конструкцию языка, а потом подумать над кодом самому.

--------------------

Ll 2

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »