| Autor |
Beitrag |
jaenicke
 
Beiträge: 19340
Erhaltene Danke: 1752
W11 x64 (Chrome, Edge)
Delphi 12 Pro, C# (VS 2022), JS/HTML, Java (NB), PHP, Lazarus
|
Verfasst: Sa 10.10.09 18:27
Hallo!
Ich möchte ausgehend von einem Pfad die relative Verzeichnisangabe zu einem zweiten Pfad bekommen. (Dabei geht es um die Angabe des Unitpfads bei der automatischen Anpassung einer Delphiprojektdatei.)
Dafür gibt es die Funktion PathRelativePathTo, die in Delphi 2006 nicht deklariert ist. Daher wollte ich diese dynamisch einbinden:   Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
| function PathRelativePathToDynA(pszPath: PAnsiChar; const pszFrom: PAnsiChar;
dwAttrFrom: DWORD; const pszTo: PAnsiChar; dwAttrTo: DWORD): BOOL;
var
DllHandle: THandle;
PathRelativePathToFunc: TPathRelativePathToFunc;
begin
Result := False;
DllHandle := LoadLibrary('shlwapi.dll');
if DllHandle <> 0 then
begin
@PathRelativePathToFunc := GetProcAddress(DllHandle, 'PathRelativePathToA');
if Assigned(PathRelativePathToFunc) then
Result := PathRelativePathToFunc(pszPath, pszFrom, dwAttrFrom, pszTo, dwAttrTo);
FreeLibrary(DllHandle);
end;
end; | Leider gibt es beim Aufruf eine Schutzverletzung beim Schreiben an Adresse 80 in der DLL. Der Aufruf sieht so aus (extrahiert und direkt so lauffähig): Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
| var
TargetDir, AProjectFile, ADirectory: string;
begin
AProjectFile := 'c:\a\b\path';
ADirectory := 'c:\a\x\y\file';
SetLength(TargetDir, MAX_PATH);
if PathRelativePathToDynA(PAnsiChar(TargetDir),
PAnsiChar(AProjectFile), FILE_ATTRIBUTE_DIRECTORY,
PAnsiChar(ADirectory), FILE_ATTRIBUTE_NORMAL) then
SetLength(TargetDir, StrLen(PChar(TargetDir)))
else
TargetDir := ADirectory;
ShowMessage(TargetDir); | Sieht vielleicht jemand wo das Problem liegt? Die Pfade usw. entstammen direkt dem Beispiel aus der Dokumentation.
Vielen Dank schon einmal, schönen Gruß,
Sebastian
|
|
BenBE
Beiträge: 8721
Erhaltene Danke: 191
Win95, Win98SE, Win2K, WinXP
D1S, D3S, D4S, D5E, D6E, D7E, D9PE, D10E, D12P, DXEP, L0.9\FPC2.0
|
Verfasst: Sa 10.10.09 19:15
Kannst Du bitte die Deklaration deeines Funktionsprototypen für den dynamischen Aufruf angeben?
Ferner: das MSDN sagt für den ersten Parameter out an, d.h. dieser muss auch in Delphi Writeable sein, also zumindest var, da IMHO aber irgendwo Speicher reserviert werden muss, dürfte auch out eine mögliche Option sein.
_________________ Anyone who is capable of being elected president should on no account be allowed to do the job.
Ich code EdgeMonkey - In dubio pro Setting.
|
|
Xentar
Beiträge: 2077
Erhaltene Danke: 2
Win XP
Delphi 5 Ent., Delphi 2007 Prof
|
Verfasst: Sa 10.10.09 19:23
Hab das grad auch mal ausprobiert.. Scheint an der Deklaration von dem Typ zu liegen.
Delphi-Quelltext
1:
| TPathRelativePathToFunc = function(pszPath: PAnsiChar; const pszFrom: PAnsiChar; dwAttrFrom: DWORD; const pszTo: PAnsiChar; dwAttrTo: DWORD): BOOL; |
geht nicht.
Delphi-Quelltext
1:
| TPathRelativePathToFunc = function(pszPath: PAnsiChar; const pszFrom: PAnsiChar; dwAttrFrom: DWORD; const pszTo: PAnsiChar; dwAttrTo: DWORD): BOOL; stdcall; |
geht. _________________ PROGRAMMER: A device for converting coffee into software.
|
|
jaenicke 
Beiträge: 19340
Erhaltene Danke: 1752
W11 x64 (Chrome, Edge)
Delphi 12 Pro, C# (VS 2022), JS/HTML, Java (NB), PHP, Lazarus
|
Verfasst: Sa 10.10.09 19:25
|
|
Luckie
Ehemaliges Mitglied
Erhaltene Danke: 1
|
Verfasst: Sa 10.10.09 21:17
Wo ist die Aufrufkonvention?
|
|
jaenicke
Beiträge: 19340
Erhaltene Danke: 1752
W11 x64 (Chrome, Edge)
Delphi 12 Pro, C# (VS 2022), JS/HTML, Java (NB), PHP, Lazarus
|
Verfasst: Sa 10.10.09 21:22
Danke, ja, genau das war der Fehler, das meinte ich mit orange. Das hätte ich wohl klarer dazuschreiben sollen. 
 Xentars Antwort wurde gerade (in orange) via AJAX angezeigt während ich noch die Antwort geschrieben habe, so dass ich nicht weiterschreiben brauchte. 
|
|
|
