[VB6] Ruotare una TIFF

[Bardamù]

Ciao a tutti!
Ho scaricato un ocx ke si kiama freeImage ke ha tra i suoi metodi anke Rotate_Classic, posto il codice ke mi sembra corretto.ù
Non riesco a capire perke' non me la ruota.

--CODE

Dim bOK As Long
Dim DIB As Long
Dim Angle As Double

Angle = 90

' load the file into the DIB
DIB = FreeImage_Load(FIF_TIFF, "MiaImmagine.tif", TIFF_DEFAULT)

If DIB <> 0 Then
' do the rotate
bOK = FreeImage_RotateClassic(DIB, Angle)
If bOK <> 0 Then
' save the rotated file
bOK = FreeImage_Save(FIF_TIFF, DIB, "MiaImmagine.tif", TIFF_DEFAULT)
End If
End If

End Sub

'In un modulo ho le def
Public Declare Function FreeImage_RotateClassic Lib "FreeImage.dll" Alias "_FreeImage_RotateClassic@12" (ByVal DIB As Long, ByVal Angle As Double) As Long

Public Declare Function FreeImage_LoadFromHandle Lib "FreeImage.dll" Alias "_FreeImage_LoadFromHandle@16" (ByVal fif As FREE_IMAGE_FORMAT, ByVal io As Long, ByVal handle As Long, Optional ByVal flags As Long = 0) As Long
Public Declare Function FreeImage_Save Lib "FreeImage.dll" Alias "_FreeImage_Save@16" (ByVal fif As FREE_IMAGE_FORMAT, ByVal DIB As Long, ByVal filename As String, Optional ByVal flags As Long = 0) As Long


CODE--

[oregon]

Non saprei dirti perche' non ho usato mai la libreria pero' ho un sospetto ...

Il fatto di esprimere l'angolo in gradi (90) mi sembra alquanto strano, a meno che non ci sia nelle specifiche della funzione di rotazione.

Molto piu' realisticamente, l'angolo e' espresso in radianti e quindi dovrai inserire il valore

PIGRECO/2

ovvero, circa

1,57075

al posto del 90.