Delphi-PRAXiS
Seite 2 von 2     12   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Bilder von Kamera übertragen (https://www.delphipraxis.net/156398-bilder-von-kamera-uebertragen.html)

NTcomputer_0 4. Dez 2010 11:50

AW: Bilder von Kamera übertragen
 
keiner eine Idee?

NTcomputer_0 5. Dez 2010 10:48

AW: Bilder von Kamera übertragen
 
Ich habe es jetzt geschafft, alle Elemente des Computers zu listen - die Kamera ist aber nicht dabei! :(
Hier mein Code:
Delphi-Quellcode:

const
  Flags = $10000 or $08000 or $04000 or $02000 or $01000 or $00800 or $00400 or $00200 or $00100 or $00080 or $00040 or $00020 or $00010;
//testweise mal alle....
var
  ComputerPIDL:PItemIDList;
  EnumList:IEnumIDList;
  Name:PChar;
  NameS:String;
  VirtualFolder:IShellFolder;
  ID: PItemIDList;
  NumIDs: LongWord;
begin
  GetMem(Name,50);
  Try
    SHGetSpecialFolderLocation(0,CSIDL_DRIVES,ComputerPIDL);
    PIDL_GetFileFolder(ComputerPIDL,VirtualFolder);
      VirtualFolder.EnumObjects(
        0,
        Flags,
        EnumList);
    while EnumList.Next(1, ID, NumIDs) = S_OK do
    begin
      PIDL_GetDisplayName(VirtualFolder,ID,0,Name,50);
      NameS:=StrPas(Name);
      //alle Laufwerke kommen hier an - Geräte NICHT.
    end;
  Except
    Error:=true;
    exit;
  End;
  FreeMem(Name);
end;

hathor 5. Dez 2010 16:11

AW: Bilder von Kamera übertragen
 
Portable Device
Vielleicht hilft das weiter:

MTP (Media Transfer Protocol) is a protocol and accompanying set of drivers developed by Microsoft to connect portable devices to a Windows Vista, Windows XP, or 2000 (with SP4) PC and synchronize digital media content between them.

Media Transfer Protocol Porting Kit

http://www.microsoft.com/downloads/e...displaylang=en
http://www.2shared.com/file/OINmKOgj/mtppk12.html
Auf dieser Seite click here anklicken...
Save file to your PC: click here

NTcomputer_0 6. Dez 2010 06:56

AW: Bilder von Kamera übertragen
 
Danke, nur ist MTP komplett in C (und für mein Programm zu umfangreich), kennt jemand eine Delphi-Übersetzung von PTP (Picture Transfer Protocol)?

hathor 6. Dez 2010 07:57

AW: Bilder von Kamera übertragen
 
Das MTP (Media Transfer Protocol) ist eine Weiterentwicklung des PTP (Picture Transfer Protocol).
Vielleicht solltest Du doch auf C# oder C++ umsteigen...:lol:

NTcomputer_0 6. Dez 2010 19:13

AW: Bilder von Kamera übertragen
 
Ich habe es jetzt doch per WIA gelöst .. trotzdem Dank an alle Ideen!
Werde meinen Code noch posten, sobald ich ihn fertiggestellt habe.


Alle Zeitangaben in WEZ +1. Es ist jetzt 11:57 Uhr.
Seite 2 von 2     12   

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz