Thanks LuckyLuke

Code: Select all
acrord32 <filename>.pdf
Code: Select all
; _DataAddString
;===============
; Returns #FALSE : Couldn't add source to destination
; #TRUE : Operation is succesfull
;====================================================
Procedure.b _DataAddString(*aData.strData, as.s)
Protected llLen.l
Protected sTmp.strData
Protected lbError.b
llLen = Len(as)
; If (_DataInit(sTmp, llLen, #DATANEW)) = #TRUE
sTmp\pData = @as
sTmp\lCurSize = llLen
sTmp\lMaxSize = llLen
lbError = _DataAdd(*aData, sTmp)
; Else
; lbError = #FALSE
;EndIf
ProcedureReturn lbError
EndProcedure