PChars mit Null Bytes von DLL zu Programm übergeben

[Luckie]

Zitat von edosoft:

luckie: das hab ich durchgelesen und getestet aber bei dir wird auch bei #0 abgschnitten:
wenn du in deiner dll-datei anstatt
foo := 'foo' + s;
foo := 'foo' + #0 + s;
schreibst (also so als wäre da halt irgendwo innem hash oder so ein nullbyte drin) dann gibt dein programm aus:
hlib: 2293760
@func1: 2327988
len: 7
foo [7]

#0 Ist das Stringendezeichen unter Windows. Wenn der Hash eine Zeichenfolge mit Steuerzeichen zurückgibt, dann solltest du ihn eventuell nachher noch codieren.

[sirius]

Zitat von SirThornberry:

Platz für ein eventuelles 0 Byte wird nicht benötigt weil ja zurück gegeben wird wie groß die Daten sind. Wenn ein 0 Byte gewünscht ist müsste sich das der Aufrufer dazu packen aber in deinem Fall ist es ja zum Beispiel nicht notwendig.

Aber ein Nullbyte sollte man mitkopieren. Du weist ja auch nicht, wer von außerhalb auf die DLL zugreift.

[SirThornberry]

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.

[sirius]

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:

//****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;

Edit: Dürfte auch zu Problemen führen wenn das Interface eher gelöscht wird, als eine Kopie von IString.Str.

[edosoft]

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.