CreateHardLink_() is not a function, an array or a linked...

[uweb]

Hi,

Code: Alles auswählen

CreateHardLink_("test01.BMP", "test02.BMP", 0)

funktiert nicht.

Hat mir jemand einen Tipp wie ich es doch noch zum laufen bringe ?

http://msdn.microsoft.com/library/defau ... rdlink.asp

[Andre]

Vermutlich wird der WinAPI-Befehl (bisher) nicht nativ unterstützt.
Wirst Du wohl über den Umweg mit LoadLibrary() die entsprechende M$-Dll öffnen und darüber die Funktion aufrufen müssen.

[uweb]

Danke !!!

Ich habe mit LoadLibrary() bisher noch nichts gemacht.
Aber, jetzt habe ich zumindest einen Ansatz.

[uweb]

Code: Alles auswählen

Enumeration
  #LinkToKernel32Lib
EndEnumeration

File01.s="test01.BMP"
File02.s="test02.BMP"

If OpenLibrary(#LinkToKernel32Lib, "kernel32.dll")
CHL = CallFunction(#LinkToKernel32Lib, "CreateHardLink", File01, File02, 0)

    If CHL
         MessageRequester("Ergebnis", "CreateHardLink_ ausgeführt")
    Else
         MessageRequester("Ergebnis", "CreateHardLink_ NICHT ausgeführt - Quelldatei vorhanden ?")
  EndIf 

EndIf

Ok, jetzt läßt es sich kompilieren.
Aber funktionieren will es noch nicht.
Da die EXE und test01.BMP im Hauptverzeichnis eines NTFS-Laufwerks liegen vermute ich den Fehler eher in einer nicht beachteten API-Konvention.

[ts-soft]

Laut MSDN lautet der Funktionsname "CreateHardLinkA" für ANSI

[uweb]

Danke, aber am Ergebnis ändert das nichts.
Ich muß da noch einen anderen Fehler gemacht haben.

[Zaphod]

manche api funktionsnamen sind unter pb geringfügig anders. da gab es manchmal einen prefix. ich glaube das hatte damit zu tun, dass purebasic irgendwelche bestandteile von lcc benutzt hat.

[edel]

Tausch mal die Quell- mit der Zieldatei. Zieldatei darf nicht vorhanden sein.
Wie ts-soft schon schrieb : CreateHardLinkA nutzen .

[uweb]

Danke !

Leider konnte ich dazu nichts passendes finden.
Zwei neue Gedanken werfen zwei neue Fragen auf :

1. Zum letzten Parameter ( Reserved; must be NULL )
- Ist NULL in dem Fall gleich 0 ?

2. Funktioniert das bei jemand anderem ?

Code: Alles auswählen

Enumeration
  #LinkToKernel32Lib
EndEnumeration

File01.s="test01.BMP"
File02.s="test02.BMP"

If OpenLibrary(#LinkToKernel32Lib, "KERNEL32.DLL")
CHL = CallFunction(#LinkToKernel32Lib, "CreateHardLinkA", File01, File02, 0)

    If CHL
         MessageRequester("Ergebnis", "CreateHardLinkA_ ausgeführt")
    Else
         MessageRequester("Ergebnis", "CreateHardLinkA_ NICHT ausgeführt - Quelldatei vorhanden ?")
  EndIf 

EndIf

[uweb]

hallodri`s Tipp war der letzte Schritt zum Ziel.

Es funktioniert !

Danke noch einmal an alle.