modification for run under Delphi 10

HemulGM / DelphiOpenAI

OpenAI API wrapper for Delphi. Use ChatGPT, DALL-E, Whisper and other products.

MIT License

242 stars 58 forks source link

modification for run under Delphi 10 #33

Closed kanteruk closed 7 months ago

HemulGM commented 1 year ago

Why is this class TStringStreamWithEvent?

kanteruk commented 1 year ago

TStringStreamWithEvent - for pass callback event OnReceiveData. becouse TReceiveDataCallback declared in delphi 10 as "TReceiveDataCallback = procedure(const Sender: TObject; AContentLength: Int64; AReadCount: Int64; var Abort: Boolean);" - is not a reference