Thema
:
c DLL char++ übersetzen
Einzelnen Beitrag anzeigen
mfoerste
Registriert seit: 26. Sep 2005
10 Beiträge
Delphi 10.3 Rio
#
21
AW: c DLL char++ übersetzen
18. Sep 2019, 10:43
Zitat von
samso
:
Ich fasse mal zusammen:
markieren
Delphi-Quellcode:
function
readLogMessage(
var
logMessage: pByte;
var
logMessageLength: Cardinal):Integer;
stdcall
;
external
'
fremdedll.dll
';
markieren
Delphi-Quellcode:
function
WriteLogToStream(Stream: TStream): Integer;
var
msg: pByte;
msgLength: Cardinal;
begin
Result := readLogMessage(msg, msgLength);
if
Result = EXECUTION_OK
then
Stream.WriteBuffer(msg^, msgLength);
// und hier wird dann msgLength wieder zu einem Integer. D.h. Überlauf bei 2GB ;-)
end
;
WOW
, vielen Dank!
Zitat
mfoerste
Öffentliches Profil ansehen
Mehr Beiträge von mfoerste finden