dOPC Client Toolkit
Close
Example
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;
Kassl GmbH Copyright © 2024. All rights reserved.