Billede fra digital camera

http://delphi.about.com/library/weekly/aa030299.htm

Stoney

Hvad er det for en jeg skal bruge???

// Jonat.

Ps. jeg har et TCM Digital camera.

du skal bruge det component i delphi som hedder Codan Image scan

Gå ind i component/Import Activex Control og følg den vejledning som stoney har henvist til...

eller du kan installere det her component. Jeg bruger det selv.

http://delphitwain.sourceforge.net/
//stone

Jeg kan ikke finde nogen der hedder "codan image scan"

prøver lige det andet du henviser til stone..

// Jonat.

det har du ret i for i den delphi5 interprise jeg har er der heller ingen..
//stone

Men Stone, jeg har prøvet det link som du gav mig, men jeg kan ikke umiddelbart se hvordan at jeg får lagt et stilbillede ind på harddiskken, som lige er lavet!!

Hvordan gør man det??

// Jonat.

har du prøvet at download det eksempel der er under showcases "simpleexample"?

når du starter eksemplet trykker du på aquire som indlæser de aktuelle kilder som twain understøtter, her vælger du den kilde det kan være scanner eller camera.
så bliver billedet overført til et image som man så kan gemme.

ps.. det forudsætter at twain understøtter netop dit kamera software.
//stone

-> Stone : Jeg fik det til at virke alligevælg, det var fordi at mit webcam også var et digitalcamera.

Så hvis du lige vil skrive koden til hvordan at man skifter til "direkte tilstand" og hvordan man så får den lagt ind i et image...

Og så er der point til dig.... :D

// Jonat.

forstår ik lige direkte tilstand...hvis det er live du tænker på tror jeg ikke componentet kan, da den skanner for det aktuelle billede.
eller der skal nok eksperimteres med en f.eks timer og så fjerne valget mellem
de forskelle skannere. så scanningen fortaget i en loop.

anyway..her er koden for at lægge det ind i et image.....


i componentens event "ontwainaquire" skriver du:

Image1.Picture.Assign(Image);
  Cancel := TRUE;  {Kun et billede af gangen}

i din button:

var
  SelectedSource: Integer;
begin
  {It is always recommended to load library dynamically, never forcing}
  {final user to have twain installed}
  if Twain.LoadLibrary then
  begin

    {Load source manager}
    Twain.SourceManagerLoaded := TRUE;
    {Allow user to select source}
    SelectedSource := Twain.SelectSource;
    if SelectedSource <> -1 then
    begin
      {Load source, select transference method and enable (display interface)}
      Twain.Source[SelectedSource].Loaded := TRUE;
      Twain.Source[SelectedSource].TransferMode := ttmMemory;
      Twain.Source[SelectedSource].Enabled := TRUE;
    end {if SelectedSource <> -1}

  end
  else
    showmessage('Twain er ikke installeret.');
end;