QuickDrawConverter

based on wiesmann/QuickDrawViewer

Usage

#DECLARE($params : Object)

If (Count parameters=0)
    
    //execute in a worker to process callbacks
    CALL WORKER(1; Current method name; {})
    
Else 
    
    $files:=Folder("/DATA/pict/").files(fk ignore invisible)
    
    var $QuickDrawConverter : cs.QuickDrawConverter.QuickDrawConverter
    $QuickDrawConverter:=cs.QuickDrawConverter.QuickDrawConverter.new()
    
    /*
        file can be file, BLOB
    */
    
    $options:=[]
    For each ($file; $files.slice(0; 1))
        $output:=Folder(fk desktop folder).folder("pdf").file($file.name+".pdf")
        $options.push({file: $file; output: $output})
        $options.push({file: $file.getContent()})
    End for each 
    
    $results:=$QuickDrawConverter.convert($options; Formula(onResponse))
    
End if 

• onResponse

#DECLARE($worker : 4D.SystemWorker; $params : Object)

var $pdf : 4D.Blob
$pdf:=$worker.response

TRACE