Using Camera

[Marc]

i write the value of it in a label or memo with the strpas function (array to string conversion)... also according to the MSDN this variable should contain the complete path of the file (photo/video) that you capture. Even if i managed, finally, to get the file... it is always saved under the default location (my documents\my pictures) and the szfile variable contains a '\' string only.

That's what I thought. StrPas only handles Ansi characters, while CE uses WideChars. So StrPas sees a #0 after the first \
Use some WideChar to UTF8 conversion to display it in Lazarus (I don't recall the name of the function)

[xqtr]

I figure it out... so here it is...

This is a way to get a photo, without invoking the Camera application of the windows mobile phone. To use it, add to your uses the capstill unit and copy the .dll file to your application directory or inside the \windows dir of the WM phone.

You can make a capture with the code below, just add it to a button click or something else.

Code: [Select]

if InitGraph(form1.handle) then CaptureStill(widestring('\My Documents\image1.jpg'));

The file must not pre-exist or the function will fail.

[BlueIcaro]

Thank you for the post, I tested in WM6 emulator and it's works, but in my PocketPc Hp rx3715 with WM5 says me that the project is not a valid application  

/BLueIcaro

Edit: I copy the .exe file and the .dll file to the storage card

[Marc]

To avoid the widestring cast, you can declare CaptureStill like

Code: [Select]

Function CaptureStill(filename:pwidechar):boolean; stdcall; external 'mobilecamera.dll' name 'CaptureStill';

[classic12]

Anyone have a sample app for the above code or simple step by step instructions on how to use.


Cheers


SteveW

[classic12]

Okay for anyone else using this I created a new application. with a button with:

if InitGraph(form1.handle) then CaptureStill(widestring('\My Documents\image1.jpg'));

Put the dll & capstill.pas in the same directory.

It worked .........

I now need to develope this and add functionality to it. Some questions.

1. Can I pass parameters to the request IE resolution / flash / brightness etc etc.
2. Is it possible to have a preview of the camera ?


Any info appreciated.


Cheers


SteveW

[classic12]

Sorry also added capstill.pas to the uses clause.

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
  StdCtrls, capstill;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
begin
  if InitGraph(form1.handle) then CaptureStill(widestring('\My Documents\image1.jpg'));
end;

initialization
  {$I unit1.lrs}

end.
               

[classic12]

I tried adding the capstill.pas to a basic KOL project and I get this error:

unit1.pas(68,26) Error: identifier idents no member "handle"

if InitGraph(form1.handle) then CaptureStill(widestring('\My Documents\image1.jpg')); 


Any ideas?


Cheers


SteveW

[felipemdc]

i write the value of it in a label or memo with the strpas function (array to string conversion)... also according to the MSDN this variable should contain the complete path of the file (photo/video) that you capture. Even if i managed, finally, to get the file... it is always saved under the default location (my documents\my pictures) and the szfile variable contains a '\' string only.

Maybe you are using the wrong string type. WinCE usually uses PWideChar and not PChar. You have to check what exactly the API is using and also the encoding and convert property to a utf-8 pascal string to show in a Label.

[ldb68]

Found sample on previous post.

thanks

Where I can find capstill.pas?

thanks

Sorry also added capstill.pas to the uses clause.

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
  StdCtrls, capstill;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
begin
  if InitGraph(form1.handle) then CaptureStill(widestring('\My Documents\image1.jpg'));
end;

initialization
  {$I unit1.lrs}

end.