Dias atrás encontrei uma .OCX muito pequena e prática, tanto na programação como no resultado final.
Usei para tal, automação OLE através de TOLEAuto(Harbour) mas é possivel usar também CreateObjetc(xHarbour).
O codigo esta bem limpo para que o entendimento seja rápido.
Para fazer uso desta .OCX é necessário baixar o .ZIP contido e registrar a mesma. Vale lembrar que não é necessário copiar a .OCX ou .DLL para a pasta SYSTEM32 de seu Windows, mas é necessário passar ao registrador o caminho completo da mesma.
Exemplo do registro:
%SystemRoot%\system32\regsvr32.exe c:\PastaOndeEstaAOCX\NomeDela.OCX
Fivewin não é necessário pois a .OCX não requer visualização em janela ou dialogo. Use sua GUI preferida.
Exemplo do codigo:
/*
*
* TOLEAuto and Activex
* Jose Carlos da Rocha
*
*/
#include "FiveWin.ch"
function Main()
local fn := Array(5)
oCopyImage := TOleAuto():New( "CopyImage.CopyImage.1" )
ep := cFilePath( GetModuleFileName( GetInstance() ) )
fn[1] = "wmf"
fn[2] = "bmp"
fn[3] = "png"
fn[4] = "jpeg"
fn[5] = "wbmp"
For i = 1 To 5
oCopyImage:Type := i
oCopyImage:CopyFile(ep + "coins.gif" , ep + "coins75." + fn[i], 50, 50)
oCopyImage:CopyFile(ep + "eckler.bmp", ep + "eckler120." + fn[i], 120, 120)
Next
return nil
http://www.5volution.com.br/downloads/f ... yImage.rar