Example

Copy Code
function TdOPCCertForm.dOPCUAClient1GetCertificate(Sender: TObject; var PrivateKey,  PublicCertificate: TStream): Boolean;
var
  FileName: string;
begin
  FileName := ExtractFilePath(Application.ExeName)+'OnCert';
  PrivateKey := TFileStream.create(ChangeFileExt(Filename,'.pem'),fmOpenRead);
  PublicCertificate  := TFileStream.create(ChangeFileExt(Filename,'.der'),fmOpenRead);
  result := true;
end;