Хостинг Портала RusFAQ.ru:
MosHoster.ru - Профессиональный хостинг на Windows 2008

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

Чемпионы рейтинга экспертов в этой рассылке

Faustofel Статус: 6-й класс Рейтинг: 52 ∙ повысить рейтинг >>

Greyss Статус: 5-й класс Рейтинг: 35 ∙ повысить рейтинг >>

Genia007 Статус: Студент Рейтинг: 30 ∙ повысить рейтинг >>

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Delphi

Выпуск № 1320
от 13.03.2009, 12:01

Вопрос № 161913: Подскажите пожалуйста как сделать чтобы изображение с веб-камеры передавалось на компонент TImage Заранее благодарю....

Вопрос № 161 .913

Подскажите пожалуйста как сделать чтобы изображение с веб-камеры передавалось на компонент TImage Заранее благодарю.

Отправлен: 03.03.2009, 15:56 Вопрос задал: Писарев Павел Юрьевич (статус: 1-й класс) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Влвдимир Здравствуйте, Писарев Павел Юрьевич! Копайте в сторону DirectShow. Directshow.wonderu.com В приложении код использующий компоненты пакета DSPack TFilterGraph, TFilter. Удачи. Приложение: //Создаем список видеоустройств procedure TForm1.FormCreate(Sender: TObject); var i: integer; begin VideoDevice:= TSysDevEnum.Create(CLSID_VideoInputDeviceCategory); if VideoDevice.CountFilters > 0 then for i := 0 to VideoDevice.CountFilters - 1 do ComboBox1.Items.Add(VideoDevice.Filters[i].FriendlyName); end; //Выбираем устройство procedure TForm1.ComboBox1Change(Sender: TObject); begin FilterGraph.ClearGraph; FilterGraph.Active := false; //ЗАдаем устройство с которым будем работать Filter1.BaseFilter.Moniker := VideoDevice.GetMoniker(ComboBox1.ItemIndex); FilterGraph.Active := true; //Задаем что откуда будем получать и куда выводить with FilterGraph as ICaptureGraphBuilder2 do RenderStream(@PIN_CATEGORY_PREVIEW, nil, Filter1 as IBaseFilter, SampleGrabber1 as IBaseFilter, VideoWindow1 as IbaseFilter); //Производим вывод изображения FilterGraph.Play; end; //Помещаем изображение на Image1 procedure TForm1.Button1Click(Sender: TObject); begin SampleGrabber1.GetBitmap(Image1.Picture.Bitmap); end;

Ответ отправил: Влвдимир (статус: 3-й класс) Ответ отправлен: 05.03.2009, 09:36 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 245080 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это!

Вопрос № 162.041

Здравствуйте. Мне нужно решить задачу в делфи: В каждом столбце найти минимум среди нечетных элементов. Вывести матрицу в окне формы. Я не могу понять как вывести матрицу в форме и как вывести список минимума среди нечетных чисел. На паскале без проблем решил. Объясните пожалуйсте подробно как матрицу вывести в окне формы? Приложение: uses crt; const n=5; m=4; var a:array[1..n,1..m] of integer; min:array[1..m] of integer; i,j:integer; begin clrscr; for i:=1 to n do begin for j:=1 to m do begin a[i,j]:=random(10)-11;write(a[i,j]:4); end; writeln;end; for i:=1 to n do begin for j:=1 to m do begin if (a[i,j]<min[j]) and (a[i,j] mod 2 = 0) then min[j]:=a[i,j]; end; end; writeln('minimal v stolbec'); for j:=1 to m do write(min[j]:4); readkey; end.

Отправлен: 04.03.2009, 20:34 Вопрос задал: DaImeR (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 2)

Отвечает: Mixala Здравствуйте, DaImeR! Ну можно воспользоватькя одним из компонентов, напр. Memo - преобразовывате в строку, напр <строка>:=inttostr(<число>) Можно прямо на форму выводить подобно графике: на канве формы. То есть создается форма, потом туда кнопка, для нее назначается событие(два раза кликнуть по кнопке) и появиться процедура. Это я для примера. Потом туда код Form1.Canvas.TextOut(x:integer,y:integer,text:string); то есть выводиться в любом месте формы строка. Думаю с координатами проблем у вас не будет. Так можно вывести в форме матрицу, а потом минимумы.

Ответ отправил: Mixala (статус: 5-й класс) Ответ отправлен: 04.03.2009, 21:48 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 245059 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это! Оценка за ответ: 4 Комментарий оценки: Почти понятно)

Вопрос № 162.179

Сдравствуите ув. эксперты помогите реализовать drag and drop хода фигуры.Просто ход проверку делать не надо !!!! Код программы: Код: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls; type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject); procedure FormDragDrop(Sender, Source: TObject; X, Y: Integer); procedure FormDragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean); private { Private declarations } public { Public declarations } end; TFigura=class(Tobject) private kartink a:Timage; color:boolean; tyt_x,tyt_y:integer; procedure pol_x(x:integer); procedure pol_y(y:integer); function hod_figyri(x,y:integer):boolean; virtual; property mesto_x:integer read tyt_x write pol_x; property mesto_y:integer read tyt_y write pol_y; constructor FiguraCreat(x,y:integer); destructor destroy; end; Tpeshka=class(TFigura) function hod_figyri(x,y:integer):boolean; override; end; Tslon=class(TFigura) function hod_figyri(x,y:integer):boolean; override; end; Tkon=class(TFigura) function hod_figyri(x,y:integer):boolean; override; end; Tladya=class(TFigura) function hod_figyri(x,y:integer):boolean; override; end; Tkorol=class(TFigura) function hod_figyri(x,y:integer):boolean; override; end; Tkoroleva=class(TFigura) function hod_figyri(x,y:integer):boolean; override; end; var Form1: TForm1; px,py,x,y,nomer:integer; mass: array[1..8,1..8]of TShape; labx:array[1..8,1..2] of Tlabel; laby:array[1..8,1..2] of Tlabel; globmass:array[1..32] of TFigura; pesh:array[1..8,1..2] of Tpeshka; slon:array[1..2,1..2] of Tslon; kon:array[1..2,1..2] of Tkon; lad:array[1..2,1..2] of Tladya; korol:array[1..2] of Tkorol; koroleva:array[1..2] of Tkoroleva; implementation uses Unit2; {$R *.dfm} {$R *.res} constructor TFigura.FiguraCreat(x,y:integer); var name:string; begin name:=ClassName; create; kartinka:=timage.Create(form1); kartinka.Parent:=form1; kartinka.Width:=50; kartinka.Height:=50; mesto_x:=x; mesto_y:=y; with Tfigura do begin mass[x,y].DragMode:=dmAutomatic; mass[x,y].OnDragOver:=form1.FormDragOver; mass[x,y].OnDragDrop:=form1.FormDragDrop; end; if (y<4) then begin Color:=false; kartink a.Transparent:=true; kartinka.Picture.Bitmap.LoadFromResourceName(Hinstance,name+'black'); end else begin Color:=true; kartinka.Transparent:=true; kartinka.Picture.Bitmap.LoadFromResourceName(Hinstance,name+'white'); end; end; destructor TFigura.destroy; Begin kartinka.Free; end; procedure TForm1.FormCreate(Sender: TObject); begin form1.Height:=480; form1.Width:=460; form1.Caption:='Шахматы'; //form1.TransparentColor:=true; //form1.TransparentColorValue:=clwhite ; for x:=1 to 8 do for y:=1 to 8 do begin mass[x,y]:=TShape.Create(Self); mass[x,y].Parent:=Self; mass[x,y].Left:=50*x-30; mass[x,y].Top:=50*y-30; mass[x,y].Width:=50; mass[x,y].Height:=50; if (x+y)mod 2=0 then mass[x,y].Brush.Color:=rgb(255,255,255) else mass[x,y].Brush.Color:=rgb(0,0,0); end; for x:=1 to 8 do for y:=1 to 2 do begin labx[x,y]:=Tlabel.Create(form1); labx[x,y].Parent:=form1; labx[x,y].Left:=50*x-10; labx[x,y].Font.Size:=10; labx[x,y].Font.Color:=rgb(253,117,40); labx[x,y].Font.Style:=[fsBold]; labx[x,y].Transparent:=true; if y=1 then begin labx[x,y].Top:=0; labx[x,y].Caption:=chr(64+x); end else begin labx[x,y].Top:=425; labx[x,y].Caption:=chr(64+x); end; laby[x,y]:=Tlabel.Create(form1); laby[x,y].Parent:=form1; laby[x,y].Top:=50*x-10; laby[x,y].Font.Size:=10; laby[x,y].Font.Color:=rgb(253,117,40); laby[x,y].Font.Style:=[fsBold]; laby[x,y].Transparent:=true; if y=1 then begin laby[x,y].Left:=5; laby[x,y].Caption:=inttostr(9-x); end else begin laby[x,y].Left:=430; laby[x,y].Caption:=inttostr(9-x); end; end; for y := 1 to 2 do begin koroleva[y]:=Tkoroleva.FiguraCreat(x,y*y+y+(y-1)); koroleva[y].kartinka.Left:=25*x; koroleva[y].kartinka.Top:=350*y-325; nomer:=nomer+1; globmass[nomer]:=koroleva[y]; end; for x := 1 to 2 do for y := 1 to 2 do begin lad[x,y]:=Tladya.FiguraCreat(x,y*y+y+(y-1)); lad[x,y].kartinka.Left:=350*x-325; lad[x,y].kartinka.Top:=350*y-325; nomer:=nomer+1; globmass[nomer]:=lad[x,y]; end; for y := 1 to 2 do begin korol[y]:=Tkorol.FiguraCreat(x,y*y+y+(y-1)); korol[y].kartinka.Left:=59*x; korol[y].kartinka.Top:=350*y-325; nomer:=nomer+1; globmass[nomer]:=korol[y]; end; for x := 1 to 2 do for y := 1 to 2 do begin kon[x,y]:=Tkon.FiguraCreat(x,y*y+y+(y-1)); kon[x,y].kartinka.Left:=250*x-173; kon[x,y].kartinka.Top:=350*y-32 5; nomer:=nomer+1; globmass[nomer]:=kon[x,y]; end; for x := 1 to 2 do for y := 1 to 2 do begin slon[x,y]:=Tslon.FiguraCreat(x,y*y+y+(y-1)); slon[x,y].kartinka.Left:=153*x-29; slon[x,y].kartinka.Top:=350*y-325; nomer:=nomer+1; globmass[nomer]:=slon[x,y]; end; for x:=1 to 8 do for y:=1 to 2 do begin pesh[x,y]:=Tpeshka.FiguraCreat(x,y*y+y+(y-1)); pesh[x,y].kartinka.Left:=51*x-30; pesh[x,y].kartinka.Top:=246*y-170; nomer:=nomer+1; globmass[nomer]:=pesh[x,y]; end; end; procedure Tfigura.pol_x(x:integer); begin if not ((tyt_y>0) and (tyt_y<9)) then tyt_y:=1; begin kartinka.Left:=mass[x,tyt_y].Left+5; kartinka.top:=mass[x,tyt_y].Top+5; end; tyt_x:=x; end; procedure TFigura.pol_y(y:integer); begin if not ((tyt_x>0) and (tyt_x<9)) then tyt_x:=1; begin kartinka.Left:=mass[y,tyt_x].Left+5; kartinka.top:=mass[y,tyt_x].Top+5; end; tyt_y:=y; end; function TFigura.hod_figyri(x,y:integer):boolean; begin end; function Tpeshka.hod_figyri(x,y:integer):boolean; begin end; function Tkon.hod_figyri(x,y:integer):boolean; begin end; function Tslon.hod_figyri(x,y:integer):boolean; begin end; function Tladya.hod_figyri(x,y:integer):boolean; begin end; function Tkorol.hod_figyri(x,y:integer):boolean; begin end; function Tkoroleva.hod_figyri(x,y:integer):boolean; begin end; procedure TForm1.FormDestroy(Sender: TObject); begin for x:=1 to 8 do for y:=1 to 8 do begin mass[x,y].Destroy; end; for x:=1 to 8 do for y:=1 to 2 do begin labx[x,y].Destroy; laby[x,y].Destroy; end; end; procedure TForm1.FormDragDrop(Sender, Source: TObject; X, Y: Integer); begin with Source as Tfigura do begin mass[x,y].Left:= X; mass[x,y].Top := X; end; end; procedure TForm1.FormDragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean); begin Accept := Source is Tfigura; end; end. P.S. фигуры просто должны перемещаться по доске проверку хода делать не надо!!!

Отправлен: 06.03.2009, 11:04 Вопрос задал: Киселев Дмитрий Алексеевич (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Влвдимир Здравствуйте, Киселев Дмитрий Алексеевич! В приложении рабочий код, перемещающий фигуры. Удачи! Приложение: unit Unit2; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls; type TForm2 = class(TForm) Shape1: TShape; Shape2: TShape; Shape3: TShape; procedure FormDragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean); procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form2: TForm2; implementation {$R *.dfm} procedure TForm2.FormCreate(Sender: TObject); var i:integer; begin for i:=1 to 3 do begin TShape(FindComponent('Shape'+IntToStr(i))).DragMode:=dmAutomatic; end; end; procedure TForm2.FormDragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean); begin Accept:=true; (Source as TControl).Top:=Y; (Source as TControl).Left:=X; end; end.

Ответ отправил: Влвдимир (статус: 3-й класс) Ответ отправлен: 06.03.2009, 20:40 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 245239 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это!

© 2001-2009, Портал RusFAQ.ru, Россия, Москва. Авторское право: ООО "Мастер-Эксперт Про" Техподдержка портала, тел.: +7 (926) 535-23-31 Хостинг: "Московский хостер" Поддержка: "Московский дизайнер" Авторские права | Реклама на портале ∙ Версия системы: 5.13 от 01.12.2008
RusFAQ.ru | MosHoster.ru | MosDesigner.ru RusIRC.ru | Kalashnikoff.ru | RadioLeader.ru