import

DSTexCompress/FreeImage/Wrapper/VB6/test/SimpleTest.frm

@@ -0,0 +1,45 @@
+VERSION 5.00
+Begin VB.Form SimpleTest 
+   Caption         =   "SimpleTest"
+   ClientHeight    =   1035
+   ClientLeft      =   60
+   ClientTop       =   345
+   ClientWidth     =   2325
+   LinkTopic       =   "Form1"
+   ScaleHeight     =   1035
+   ScaleWidth      =   2325
+   StartUpPosition =   3  'Windows Default
+   Begin VB.CommandButton btnTest 
+      Caption         =   "Test"
+      Height          =   495
+      Left            =   240
+      TabIndex        =   0
+      Top             =   240
+      Width           =   1575
+   End
+End
+Attribute VB_Name = "SimpleTest"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = False
+Attribute VB_PredeclaredId = True
+Attribute VB_Exposed = False
+Option Explicit
+' NOTE :
+' To run this test program, you will have to copy the FreeImage.dll file
+' in this directory.
+' Change also the "test.tif" file name with a path to any tif file on your
+' hard disk
+'
+Private Sub btnTest_Click()
+  Dim dib As Long
+  Dim bOK As Long
+  ' Load a tif image
+  dib = FreeImage_Load(FIF_TIFF, "test.tif", 0)
+  
+  ' Save this image as PNG
+  bOK = FreeImage_Save(FIF_PNG, dib, "test.png", 0)
+  
+  ' Unload the dib
+  FreeImage_Unload (dib)
+
+End Sub