Bilder von Kamera übertragen

[NTcomputer_0]

Leider erhalten alle meine zur Verfügung stehenden KAmeras keinen LW-Buchstaben.
Wie kann ich trotzdem auf sie zugreifen?

[himitsu]

Jupp, es gibt einige Geräte (Kameras, MP3-Player usw.), welche als "Gerät" erkannt und direkt unter dem "Arbeitsplatz" angezeigt werden, anstatt einen Wechseldatenträger zu simulieren, welche Windows standardmäßig an einen Laufwerksbuchstaben koppelt.

Ich würde erstmal über SHGetFolderLocation mir den Arbeitsplatz besorgen, dann darin über irgendeine dieser SH-Funktionen nach der Kamera suchen und mich dann bis zu den Dateien durchkämpfen.

Früher gab es mal im Delphi einen Demo-Projekt, welches einen billigen "Windows Explorer" darstellt ... darin wurde mit diesen Funktionen gearbeitet wird ... zuletzt in D4 oder D7 gesehn und k.A. ob's diese Demo noch gibt.

[NTcomputer_0]

Danke für deinen Ansatz!
SHGetFolderLocation gilt als deprecetad (laut msdn), aber es gibt die (neuere?) Funktion SHGetKnownFolderIDList, über die mit der KNOWNFOLDERID FOLDERID_ComputerFolder das selbe Resultat erreicht werden sollte. Leider weiß ich nicht, wie ich innerhalb dieses VirtualFolders nach meiner Kamera suche! Gibt es dafür einen speziellen SH-Befehl (den ich bislang noch nicht gefunden habe)?

[NTcomputer_0]

keiner eine Idee?

[NTcomputer_0]

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]

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]

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