|
r.federiconi
Italy
6 Posts |
 Posted - Jun 21 2013 : 00:20:57
|
ImageEn version : 4.1.2
Hi,
we have problems with some integrated cameras, substantially it fails to see the complete list of video formats allowed (there aren't higher resolutions) and consequently the quality of photos is not acceptable.
To extract the list we use the following code:
function GetVideoFormats(ImageEnIO: TImageEnIO; InputDeviceIndex: Integer): TStrings; overload;
var
I: Integer;
begin
Result := TStringList.Create;
try
with ImageEnIO.DShowParams do
begin
SetVideoInput(InputDeviceIndex);
Connect;
for I := 0 to VideoFormatsCount-1 do
if Length(VideoFormats[I].Format) > 0 then
Result.AddObject(FormatString(VideoFormats[I]), TObject(I));
Disconnect;
end;
except
Result.Free;
raise;
end;
end;
Any suggestions?
Regards
Federiconi Roberto
Namirial spa
|
|
Search
VideoFormats problems
