Cas Terazi Veri gönderimi Delphi sürüm sorunu

[sabanakman]

UniCode olan Delphi 10.3 sürümü için bir de şunu deneyebilir misiniz?

1 - CASPRTC.pas dosyasında Ctrl+R ile "replace" penceresinde "Char" aratıp "AnsiChar" ile değiştirin. Bu hem Char tiplerini AnsiChar yapacak hem de PChar tiplerini PAnsiChar yapacaktır. Kısacası bu unit (CASPRTC.pas) içinde hiç Char ya da PChar tipinde değişken tanımı bırakmamış olmak gerekiyor.

2 - Unit1.pas dosyasında ise

function StrToPAnsiChar(const S: string): PAnsiChar;
var
  asVal: AnsiString;
begin
  asVal := AnsiString(S);
  Result := PAnsiChar(asVal);
end;

şeklinde bir fonksiyon tanımlayın ve tüm "PChar(" ile yapılan dönüşümleri "StrToPAnsiChar(" olarak değiştirin. Bu unit (Unit1.pas) içinde de hiç PChar(..) şeklinde tip dönüşümü bırakmamış olmak gerekmektedir.

Test etme imkanı bulamadım ama bu iki adımlı değişiklikten sonra delphi 10.3 üzerinden de çalışması gerekiyor gibi duruyor .