Search results
Search results 1-12 of 12.
Thanks for you help Here it is how I intend to use it: Jabaco Source 1 2 3 4 5 6 7 8 9 10 11 12 13 Dim myJavaImage As Image = com#sun#jimi#core#Jimi.getImage("C:\WINDOWS\Web\Wallpaper\00000001.TIF") HX = myJavaImage.getHeight(Null) WX = myJavaImage.getWidth(Null) If WX > HX Then HX = Int(HX * (736 / WX)) WX = 736 Else WX = Int(WX * (580 / HX)) HX = 580 End If Dim myImage As IResource = New VBImage(myJavaImage.getScaledInstance(WX,HX,0)) Picture1.Picture = myImage Picture1.Refresh
Thanks for it StefanSchnell But, maybe what I need is to use this http://java.sun.com/products/jimi/ JIMI Software Development Kit Jimi is a class library for managing images. Its primary function is image I/O. Jimi was formerly a product of Activated Intelligence. Sun is making it available for developers who have code with dependencies on Jimi or for those who need image I/O functionality in applications running under 1.1.x versions of the Java Platform. Jimi's range of supported formats inclu...
Hi Wich Graphics/Images/Pictures formats are avaialable in Jabaco? I can use JPG and GIF without a problem but will not take TIF. Can you help? Thank you Merry Xmas
Jabaco Source 1 2 3 4 5 'Is a Directory or File? - No extension assumes a Directory If InStrRev(toFile,".") = 0 Then Parent = toFile toFile = New File(toFile, fromFile.getName) End If
Ok I admite, lots of files can have 1,2 3 or more caracteres on the extension Said that, with this change its acommodated Jabaco Source 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 'Is a Directory or File? - No extension assumes a Directory y = Len(toFile) d = True For x = 2 To y - 1 If Left(Right(toFile,x),1) = "." Then d = False x = y End If Next If d Then Parent = toFile toFile = New File(toFile, fromFile.getName) End If '+++++++++++++ Old code ' If (Len(toFile)>4 And Left(Right(toFile,...
Hi Yes, the last version of FileCopy does return the status. About the extension Perhaps I am old school, but its useful to indentify the file type with an extension 3 caracters, again old school, comes from the days of dirty DOS The dot after a directory/folder name will not do anything for identification and can cause some problems since for the OS it represents de Parent directory/folder. Said that, I realy apreciated your help and comments Regards HD
This function will return True/False if operation succeeds/fails Will take an existing file (otherwise it fails) and will copy it to: An existing folder/file (prompts to overwrite file) A different filename and/or to a new folder (will create the folder) Jabaco Source 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 ...
A.I. Jabaco Source 1 2 3 4 5 'Directory? or File? If MsgBox("FileCopy: destination is a directory?", vbYesNo) = vbYes Then Parent = toFile toFile = New File(toFile, fromFile.getName) End If replaced by Jabaco Source 1 2 3 4 5 6 7 'Is a Directory or File? - No extension assumes a Directory If (Len(toFile)>4 And Left(Right(toFile,4),1) = ".") Or (Len(toFile)>5 And Left(Right(toFile,5),1) = ".") Then ' Due to existing extension it assumes to be a file Else Parent = toFile toFile = New File(toFile, ...
Thank you very much for that . But, there is always a but somewhere along the way. With the WinAPI CopyFile I could copy say "SourceFile" into a "NewDirectory" and end up with "NewDirectory\SourceFile" Therefore I did some tweaks and the it is a *new version" of FileCopy where I also replaced all the Exit Function statements with Exit Sub (don't know if that was because it will be part of library???) ----------------------------------------------------------------------- Jabaco Source 1 2 3 4 5 ...
I had used this two WinAPI functions Public WinAPI Function CreateDirectory Lib "kernel32" Alias "CreateDirectoryA" (ByVal lpPathName As String, ByVal lpSecurityAttributes As Long) As Long Public WinAPI Function CopyFile Lib "kernel32.dll" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long And I was wondering if I could avoid using them and replace it with some kind of "internal" functions. Thank you
res = Database1.ExecuteStatement("SELECT * FROM INDEXDB1 WHERE IFIELD1 LIKE '%" & Text1.Text & "%'" ) replaced * with % and it works like a charm
Hi Trying to get data out of a database using where clause but at no avail. This simple example one works: res = Database1.ExecuteStatement("SELECT * FROM INDEXDB1 WHERE IFIELD1='" & Text1.Text & "'") but when using using the next example, does not work: res = Database1.ExecuteStatement("SELECT * FROM INDEXDB1 WHERE IFIELD1 Like '" & Text1.Text & "'") HELP Please Thank you