![]() |
Re: PChars mit Null Bytes von DLL zu Programm übergeben
Zitat:
|
Re: PChars mit Null Bytes von DLL zu Programm übergeben
Zitat:
|
Re: PChars mit Null Bytes von DLL zu Programm übergeben
ich sag ja nicht das ein 0 Byte nicht mit kopiert werden soll. Aber es ist nicht notwendig ein zusätzliches 0 Byte anzuhängen.
Und einfach so ein 0 Byte anzuhängen damit der Aufrufer es dann entfernen muss macht doch keinen Sinn. Dann sollte doch lieber der Aufrufer ein 0 Byte anhängen wenn er eins braucht. Und wie dieses Beispiel zeigt wird das 0 Byte wohl kaum benötigt denn in dem Fall soll ja ein 0 Byte gerade kein Ende signalisieren. Im Ausgangsbeispiel wo der Buffer ein PChar ist ist ein 0 Byte richtig. Aber da macht es eigentlich schon keinen Sinn ein 0 Byte im Hash zu haben wenn dies für Ende steht. Sobald es aber ein untypisierter Pointer ist steht es für einen Buffer beliebigen Types und da gehört keine 0 hinten dran. |
Re: PChars mit Null Bytes von DLL zu Programm übergeben
Wie du meinst.
Wie wäre es damit:
Delphi-Quellcode:
//***DLL
type IString=Interface procedure SetString(Value:string); function GetString:string; property Str:string read GetString write SetString; end; TString=class(TInterfacedObject,IString) procedure SetString(Value:string); function GetString:string; private Fstring:string; end; function GetFileHash(pFileName: PChar): IString; stdcall; var sHash: string; begin sHash := 'a'+#0+'b'; result:=TString.create; result.Str:=sHash; end; procedure TString.SetString(Value:string); begin FString:=value; end; function TString.GetString:string; begin result:=FString; end; exports GetFileHash;
Delphi-Quellcode:
Edit: Dürfte auch zu Problemen führen wenn das Interface eher gelöscht wird, als eine Kopie von IString.Str.
//****Main
type IString=Interface procedure SetString(Value:string); function GetString:string; property Str:string read GetString write SetString; end; implementation {$R *.dfm} function GetFileHash(pFileName:Pchar):IString; stdcall; external 'PDLL.dll'; procedure TForm1.Button1Click(Sender: TObject); var s: IString; len:Integer; begin s := GetFileHash('c:\CA.txt'); len:=length(s.Str); ShowMessage(inttostr(len)+': '+s.Str); end; |
Re: PChars mit Null Bytes von DLL zu Programm übergeben
also ich glaub das mit dem interface lasse ich lieber^^
ich denke auch nicht dass ein nullbyte ans ende sollte. ich habe ja nicht vor einen nullterminierten string o.ä. zurück zu geben. an einen integer hängt ja auch niemand ein nullbyte an ;) luckie: ich denke nicht dass eine codierung sinnvoll wäre. ich habe ja nicht vor den hash anzuzeigen sondern ihn zu verarbeiten. und dabei stört ein nullbyte ja wohl kaum oder? abgesehen davon wäre es unsinnvoll den hash zu kodieren, ich könnte ja z.b. mit xor nicht mehr damit arbeiten. |
Alle Zeitangaben in WEZ +1. Es ist jetzt 02:20 Uhr. |
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 by Thomas Breitkreuz