21

Re: Знімок з Веб-камери на Дельфі 7

Варіант з трьома формами має спрацювати. Спочатку в опціях проекту викиньте форми, які мають працювати з вебкою, зі списку Auto Create Forms. Потім на головній формі показуйте їх отак:

type
  TFormClass = class of TForm;

procedure CreateAndShowModal(AFormClass: TFormClass);
var
  Form: TForm;
begin
  Form := AFormClass.Create(Nil);
  try
    Form.ShowModal;
  finally
    Form.Free;
  end;
end;

///...
CreateAndShowModal(TForm2);

22 Востаннє редагувалося КиївОболонь (22.11.2015 01:23:33)

Re: Знімок з Веб-камери на Дельфі 7

Torbins написав:

Варіант з трьома формами має спрацювати. Спочатку в опціях проекту викиньте форми, які мають працювати з вебкою, зі списку Auto Create Forms. Потім на головній формі показуйте їх отак:

type
  TFormClass = class of TForm;

procedure CreateAndShowModal(AFormClass: TFormClass);
var
  Form: TForm;
begin
  Form := AFormClass.Create(Nil);
  try
    Form.ShowModal;
  finally
    Form.Free;
  end;
end;

///...
CreateAndShowModal(TForm2);

А клас, який створюється при створенні форми3 видаляти?
Там де ///... -це там писати інший код?
з останнім рядком робити те ж, що й з процедурою createandshowmodal чи це просто рядок?

23

Re: Знімок з Веб-камери на Дельфі 7

Останніх два рядки, це просто приклад використання. Виклики CreateAndShowModal закиньте собі в обробники натискань кнопок, і передавайте туди ті класи форм, які хочете запустити.

24

Re: Знімок з Веб-камери на Дельфі 7

а як зробити збереження фото не лише в bmp, але й у jpg (wmf ще можливо)?

25

Re: Знімок з Веб-камери на Дельфі 7

...скористатися можливостями класу JPEG або більш універсальною GDI+.

До речi: коли ж ви собi завантажите довiдник Delphi-World наприклад для елементарних питань?

26

Re: Знімок з Веб-камери на Дельфі 7

raxp
У DelphiWorld-ді часом такий трешак трапляється, що краще уже нехай тут питає.
А використання юніту JPEG повністю підтримую.

Подякували: 0xDADA11C71

27

Re: Знімок з Веб-камери на Дельфі 7

...краще вже MSDN.

Подякували: 0xDADA11C7, Torbins2