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

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

@@ -0,0 +1,38 @@
+Type=Exe
+Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#..\..\..\..\..\WINNT\system32\stdole2.tlb#OLE Automation
+Form=SimpleTest.frm
+Module=FreeImage; ..\modFreeImage.bas
+IconForm="SimpleTest"
+Startup="SimpleTest"
+HelpFile=""
+Title="SimpleTest"
+ExeName32="SimpleTest.exe"
+Command32=""
+Name="TestFreeImage"
+HelpContextID="0"
+CompatibleMode="0"
+MajorVer=1
+MinorVer=0
+RevisionVer=0
+AutoIncrementVer=0
+ServerSupportFiles=0
+VersionCompanyName="HDN"
+CompilationType=0
+OptimizationType=0
+FavorPentiumPro(tm)=0
+CodeViewDebugInfo=0
+NoAliasing=0
+BoundsCheck=0
+OverflowCheck=0
+FlPointCheck=0
+FDIVCheck=0
+UnroundedFP=0
+StartMode=0
+Unattended=0
+Retained=0
+ThreadPerObject=0
+MaxNumberOfThreads=1
+DebugStartupOption=0
+
+[MS Transaction Server]
+AutoRefresh=1