Never mind, I figured it out. I guess the 'custom actions' portion of the doc confused me. I skipped that thinking I did not have any custom actions. I didn't realize you need to add your primary output there as well.
Hi, I am having problems installing a service I coded.
Per http://support.microsoft.com/kb/816169, I've added a project installer to it with a serviceProcessInstaller and serviceInstaller using the "Add Installer" option on the service. I then added a Setup project to the solution, added my...
Bob,
Using 'Set docTif = Nothing' throws an 'object required' error. I mentioned that in my first post.
As for the convoluted manner of displaying/releasing the TIF in the document viewer, I have not had much success finding anything online describing an easier way to do it.
And yes, it...
I figured out something that worked. I changed the last part of the code to:
Set tmpDoc = New Document
tmpDoc.Create
docTiff.Document = tmpDoc
Set tmpDoc = Nothing
If Dir(tmpTif) <> "" Then Kill tmpTif
Creating an empty document and setting the miDocView.Document property...
I am having an issue releasing a file opened using the MODI library. Here is the code (docTif is the MiDocView object on my form):
Dim tmpTif As String
Dim tmpDoc As Document
Dim tmpImg as MODI.Image
...
(a TIF is created and saved to disk. the name of the file is stored in tmpTif)
...
Set...
Thanks,
I figured it out based on what you said. This code works:
Dim arImage() As Byte
Dim ff As Integer
Dim myTifDoc As Document
ff = FreeFile
ReDim arImage(imgSize)
Open fimFile For Binary As #ff
Get #ff, imgPoint, arImage
Close #ff
ff = FreeFile...
Hi,
I'm writing an app that strips .tif images from a file that contains a concatination of tifs, and then displays them, but I'm running into some problems regarding access errors. Here's the code that strips the .tif and displays it:
Dim arImage() As Byte
Dim ff As Integer...
Thanks, but I'm still having problems. I plugged your code and got a Runtime error 429: ActiveX component can't create object on your statement Set SA = CreateObject("Shell.Application")
Hi, I'm trying to allow an open of a file browsing window in my app. I found some code and inserted it into a module. The code looks like so:
Private Const BIF_RETURNONLYFSDIRS As Long = &H1
Private Const BIF_DONTGOBELOWDOMAIN As Long = &H2
Private Const BIF_RETURNFSANCESTORS As Long = &H8...
I am reading a *.csv file into my program, but when the program finishes grabbing each field from the first row, it returns an EOF condition. Here is a snippet:
i = 1
while i <= lastRecord And Not exportError
Input #nFile(1), strRecord
If EOF(nFile(1)) Then
MsgBox "EOF on " & i &...
Thanks, you are right about the array of strings. I was being stupid, because what I was really trying to make an array of characters. I've changed it to an array of bytes instead, and I am getting what I want now.
I'm a vb newbie, and I am trying to retrieve some variable length strings (City names) from a binary file. The binary file contains data from which I can determine the strings' locations and lengths. Right now, I am just trying to display the data, but I'm having problems. My code is as...
Well, I used Blorf's suggestion, and it works fine. The packed data is in only 1 byte and is unsigned. For example, when I grab a byte with 20 hex, vb reads it as 32. By Hex(variable name), it converts it back to 20, and I can put it in the table. Packed decimal is very common on mainframes...
Hi, I am trying to read a binary file to update a table. The data is packed, and some of it is contained in one byte as packed decimal. Is there an quick way to convert this data to an integer?
x'20' should convert to 20, not 32.
Thanks ByteMyzer, I did find a solution similar to the one you suggested, like so:
rcd.Open "tmpTables", cn, adOpenKeyset, adLockOptimistic, adCmdTable
....
With rcd
.AddNew
!TableType = txtType
!AccountNumber = Mid(inline, 7, 16)
!ReturnDigit = Mid(inline, 23, 10)...
Thanks, but I need to insert 100's of rows into the table. The code right now is basically:
While not EOF(1)
strSQL = "insert into <table> values(<row data>)
rcd.Open strSQL, cn, adOpenKeyset, adLockOptimistic
Line Input #1, <row data>
Wend
So, for each line of input it reads from...
I am reading a text file as input and inserting some data into a table. I have a while loop that reads a record, and then inserts into the table, but the process is incredibly slow. I thought there was a way to do something like:
insert into table
values ("a","b","c")...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.