<div dir="ltr">Hi Ricardo,<div><br></div><div>Use SHCameraCapture in unit aygshell. You have to get it saved as a file first by the Windows API. I would have preferred to get a pointer to memory.</div><div><br></div><div>uses aygshell;</div>
<div><br></div><div><div>function CameraCapture(Folder, FileName: WideString; Width, Height: Integer; Video: Boolean): Boolean;</div><div>var<br></div><div>  SI: SIPINFO;</div><div>  CC: TSHCAMERACAPTURE;</div><div>  R: HRESULT;</div>
<div>begin</div><div>  FillChar(CC, SizeOf(CC), 0);<br></div><div>  CC.cbSize:=SizeOf(CC);</div><div>  CC.hwndOwner:=MainForm.Handle;</div><div>  CC.pszInitialDir:=PWideChar(Folder);</div><div>  CC.pszDefaultFileName:=PWideChar(FileName);</div>
<div>  CC.pszTitle:='Camera';</div><div>  CC.VideoTypes:=CAMERACAPTURE_VIDEOTYPE_ALL;</div><div>  if Video then</div><div>    CC.Mode:=CAMERACAPTURE_MODE_VIDEOWITHAUDIO</div><div>  else</div><div>    CC.Mode:=CAMERACAPTURE_MODE_STILL;</div>
<div>  CC.StillQuality:=CAMERACAPTURE_STILLQUALITY_NORMAL;</div><div>  CC.nResolutionWidth:=Width;</div><div>  CC.nResolutionHeight:=Height;</div><div>  CC.nVideoTimeLimit:=60;</div><div>  SetLastError(0);</div><div>  R:=SHCameraCapture(CC);</div>
<div>  Result:=R=S_OK;<br></div><div>end;<br></div></div><div><br></div><div class="gmail_extra">Regards,</div><div class="gmail_extra"><br></div><div class="gmail_extra">Paul.</div><div class="gmail_extra"><br><br><div class="gmail_quote">
On Sat, Nov 16, 2013 at 2:54 PM, "Arí Ricardo Ody" <span dir="ltr"><<a href="mailto:aro52@gmx.com" target="_blank">aro52@gmx.com</a>></span> wrote:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
<span style="font-family:Verdana"><span style="font-size:12px"><div><span style="font-family:Verdana"><span style="font-size:12px">Hi!<br><br>I would like to develop the feature of take pictures from windows mobile handelds and save them in SQLite databases. May someone tell me how to implement this feature in Lazarus?<br>
<br>Greetings from Sao Paulo - Brazil<span class="HOEnZb"><font color="#888888"><br><br>Ricardo</font></span></span></span></div></span></span>
<br>--<br>
_______________________________________________<br>
Lazarus mailing list<br>
<a href="mailto:Lazarus@lists.lazarus.freepascal.org">Lazarus@lists.lazarus.freepascal.org</a><br>
<a href="http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus" target="_blank">http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus</a><br>
<br></blockquote></div><br></div></div>