umwandlung von Delphi 7 in 2010 macht probs

[TheGame1492]

D2010:

Delphi-Quellcode:

  function EncryptIrcBlowfish(dText, key: ansistring): pansistring; stdcall; external 'project1.dll' name 'EncryptIrcBlowfish';
  function DecryptIrcBlowfish(eText, key: ansistring): ansistring; stdcall; external 'project1.dll' name 'DecryptIrcBlowfish';

var
  str, key, strDecrypted, strEncrypted: ansistring;
  pstrEncrypted: pansistring;
begin
  try
    str := 't2e3s4t5t6e7st';
    key := '123';
    writeln('----');
    pstrEncrypted := EncryptIrcBlowfish( str, key );
    strEncrypted := AnsiString(pstrEncrypted);
    writeln('Encrypted: '+strEncrypted);
    strDecrypted := DecryptIrcBlowfish( strEncrypted, key );
    writeln('DEcrypted: ' +strDecrypted);

D7 DLL:

Delphi-Quellcode:

function EncryptIrcBlowfish(dText, key: ansistring): pansistring; stdcall;
var temp, eText: ansistring;
    i: Integer;
    mykey: ansistring;
begin
  eText := '';
  if(dText<>'') then
  begin
    temp := '';

    if (length(dText) mod 8 > 0) then
      for i:= 1 to 8 - (length(dText) mod 8) do
        dText:= dText+ #0;

    temp := '';

    mykey:= set_key(key);
    for i:= 1 to length(dText) div 8 do
    begin
      temp:= Copy(dText, 1+(i-1)*8,8);
      SetLength(temp, 8);
      madcrypt.Encrypt(PChar(temp), 8, mykey);
      eText := eText + bytetoB64(temp);
    end;
  end;
  Result:= pansistring(eText);
end;


function DecryptIrcBlowfish(eText, key: ansistring): ansistring; stdcall;
var temp, dText: ansistring;
    i : Integer;
    mykey: ansistring;
begin
  mykey:= set_key(key);
  for i:= 1 to length(eText) div 12 do
  begin
     temp := B64tobyte(Copy(eText,1+(i-1)*12,12));
     SetLength(temp, 8);
     madcrypt.Decrypt(PChar(temp), 8, mykey);
     dText := dtext + temp;
  end;

  Result:= dText;
end;

exports
  EncryptIrcBlowfish,
  DecryptIrcBlowfish;

[himitsu]

AnsiStrings vor D2009 sind nicht mit denen ab Delphi2009 kompatibel.
und da hilft auch der nötige SharedMemoryManager nichts (welcher für derartige Speicherübergaben nötig ist),
da die interne Struktur der Strings um 2 sinnlose und mehr Probleme bereitende, als lösende Felder erweitert wurde.

Ergo: Du kannst nur eine Schnittstelle mit PAnsiChar verwenden.

[TheGame1492]

thx, endlich hinbekommen mit PAnsiChar die D7 DLL anzusprechen mit korrekten Ausgaben