|
I'll reply to myself -- since I figured out part of the answer.
It seems that VB6 passes args to other functions as ANSI. And in order to change this I should change how the external args are declared.
Changing "as String" to "as Any" will do it. (This MSDN article refers to this method for calling reg functions with UNICODE).
Great -- now it get's a little more interesting -- I want to return a few strings as a result. The DLL refers to this parameter as "ByRef Ihandle As String" -- will "ByRef IHandle As Any" work? And what will the C++ parameter be? (bstr_t *)?
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~<br />
Peter Weyzen<br />
Staff Engineer<br />
<A HREF="http://www.santacruznetworks.com">Santa Cruz Networks</A>
|
|
|
|
|
Peter Weyzen wrote:
And what will the C++ parameter be?
A BSTR, I would have thought. _bstr_t is a class to convert strings between char * and BSTR for you.
However, the way to find out is to debug and let the IDE tell you.
Christian Graus - Microsoft MVP - C++
|
|
|
|
|
First, your question belongs in the ASP.NET[^] forum.
Second, IIS doesn't have user groups. Are you talking about Windows Security? Be clear about this when you repost your question in the correct forum.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Thanks for the information. I have deleted this post and have re-worded it for posting in the ASP .NET area.
Mtognetti
|
|
|
|
|
hi ppl,
i'm lookin for some web application for library system or book keeping.
my boss wants me to develop such a system for the office. does anyone
of you have such a system or can help me in building such a system.
the reason my boss wants it to be a web application because it'll not
be necessary to install the application on each PC. just a simple
link at the internet browser and the application opens up.
But i don't know a single thing about book keeping book management or
library system. if someone of you has such a system or
have developed such a system please be kind enough to help me.
Thanks in advance.
|
|
|
|
|
manik nath wrote:
But i don't know a single thing about book keeping book management or
library system.
Then I guess you're screwed... No one here is going to just "give" you their code. Especially with a project this big.
If you want a web application like this, buy it off-the-shelf. It'll be cheaper than paying you to write it for the next year. Also, any accounting accuracy liability will be removed from your shoulders if you use a commercial product.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
manik nath wrote:
my boss wants me to develop such a system for the office.
manik nath wrote:
But i don't know a single thing about book keeping book management or
library system.
ROTFL - your boss is an idiot. Why would he ask you do to this, if you're not able to do it ? I'd look for another job.
If you know how to program web applications, then you should be able to ask your boss what he wants and write it. If not, then tell him it's not your job to write web applications ( I hope it isn't, if you don't know how ), and that it's cheaper to buy something than to pay your wage while you dither around trying to learn.
Christian Graus - Microsoft MVP - C++
|
|
|
|
|
hi,
thanx guys for the advices. but tell you christian it'snot that easy to resign and look for another job. but i'll try to do something. and hope things are allright. but even if you guys find something to help please do so.
|
|
|
|
|
Not likely. If you know nothing about accounting, it's hopeless...
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
thanx dave,
anyways i'm a newbie at web applications that's y askin for help. buthave to do somethin to save my job.
|
|
|
|
|
Dude - here's the thing. I know it's hard to just quit, I didn't mean that. I'm telling you that if you have no experience in writing web applications, you should look for another job. THEN quit. Obviously, you have bills to pay and so on, but even if you get out of this one alive, your boss will still be an idiot, and will still give you jobs that you're not qualified for, because he can and he's dumb enough to think he'll save money that way.
Christian Graus - Microsoft MVP - C++
|
|
|
|
|
OK THANKS LETS MAKE IT MORE ELABORATE
COLA COLB COLC
NAME AGE AMT
JOHN 25 500
ROSE 15 1200
RICE 50 500
DICK 70 200
NOW THE COLOMNS ARE COLOMNS ON EXCEL SHEET.THE NAME ON THE WORK SHEET1 IS PEOPLE AND THE SAME NAME EXISTS IN WORK SHEET TWO WITH WORKSHEET NAME AS BUYERS AS BELOW
COLA COLB COLC
NAME PROD LANGUAGE
RICE ORANGE ENGLISH
ROSE EGG FRENCH
DICK PEN GERMAN
JOHN BOOKS GERMAN
AN EXAMPLE OF MY OUTPUT FOR JOHN SHOULD BE ON TWO SHEEETS.THE PEOPLE SHEET AND THE BUYERS SHEET. LIKE BELOW
COLA COLB COLC
NAME AGE AMT
JOHN 25 500
15 1200
50 500
70 200
AND ON SHEET2(BUYERS)
COLA COLB COLC
NAME PROD LANGUAGE
ORANGE ENGLISH
EGG FRENCH
PEN GERMAN
JOHN BOOKS GERMAN
FROM THIS OUTPUT YOU CAN SEE THAT ALL OTHER NAMES ARE CLEARED AND JOHN STILL MAINTAINS ITS POSITION ON THE TABLE ON BOTH SHEETS.ALL OTHER NAMES ARE CLEARED SO THAT NO ONE COULD HAVE AN IDEA OF WHO OWNS THE VALUES.THIS MEANS THAT THE MACRO CODES SHOULD BE ABLE TO IDENTIFY THE NAME ON SHEET ONE , PICK IT,CLEAR THE OTHERS, AND GOTO SHEET 2, PICK THE SAME NAME, AND CLEAR THE OTHERS THEN SAVE THE SHEET FOR EACH PERSONS BY THEIR NAMES.THIS MEANS 4 SAVED SHEETS AND ON EACH IT SHOULD ONLY SHOW THE NAME OF THE PERSON IN QUESTION.
ALSO I NEED A CODE THAT WOULD CONVERT MY EXCEL SHEET TO PDF.CAN ANYONE PLS HELP ME?
|
|
|
|
|
First, STOP YELLING!
Second, do your own homework. We will not write your code for you. We will help you with your code, though, but you have to at least try to write it first.
Third, you'll need a third party component to convert, or print, the sheet into a .PDF file.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Dave Kreskowiak wrote:
Third, you'll need a third party component to convert, or print, the sheet into a .PDF file.
One of those can even be found here on CodeProject. Try the search thingy at the top.
|
|
|
|
|
Don't tell me. Tell the OP.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
I just replied to your post because I just wanted to add a little details of what you already stated (didnt want write everything again  ).
|
|
|
|
|
Yeah, but the OP doesn't get an email that says you added this little tidbit. Only I get that notification.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
pls this is my code for conversion of my excel to pdf but it isnt working.dont know where i am going wrong
Sub run()
'
' Makes some preliminary checks of the arguments.
' Quits the application is any problem is found.
End Sub
' ***********************************************
' XLS2PDF
'
' Converts a Excel xlsument to PDF using Adobe
' Distiller.
'
' Input: C:\Documents and Settings\Administrator\Desktop\*.xls
' sXlsFile - Full path to Excel xlsument.
' sPDFFile - Optional full path to output file.
' If not specified the output PDF file
' will be the same as the sXlsFile except
' file extension will be .pdf.
Function XLS2PDF(sXlsFile, sPDFFile)
Dim fso ' As FileSystemObject
Dim wdo ' As Excel.Application
Dim wxls ' As Excel.xlsument
Dim wxlss ' As Excel.xlsuments
Dim sPrevPrinter ' As String
Dim oDistiller ' As PDFDistiller.PDFDistiller.1
Set oDistiller = CreateObject("PDFDistiller.PDFDistiller.1")
If oDistiller Is Nothing Then
WScript.Echo "Error: Cannot create PDF xlsument. Adobe Acrobat " +
"Distiller is not available! Quiting..."
WScript.Quit 1
End If
Set fso = CreateObject("Scripting.FileSystemObject")
Set wdo = CreateObject("Excel.Application")
Set wxlss = wdo.xlsuments
sTempFile = fso.GetSpecialFolder(TemporaryFolder) + "\" + fso.GetTempName()
sXlsFile = fso.GetAbsolutePathName(sXlsFile)
' Debug outputs...
If bShowDebug Then
WScript.Echo "Xls file = '" + sXlsFile + "'"
WScript.Echo "Temporary file = '" + sTempFile + "'"
WScript.Echo "PDF file = '" + sPDFFile + "'"
End If
sFolder = fso.GetParentFolderName(sXlsFile)
If Len(sPDFFile) = 0 Then
sPDFFile = fso.GetBaseName(sXlsFile) + ".pdf"
End If
If Len(fso.GetParentFolderName(sPDFFile)) = 0 Then
sPDFFile = sFolder + "\" + sPDFFile
End If
' Remember current active printer
sPrevPrinter = wdo.ActivePrinter
'wdo.ActivePrinter = "Acrobat PDFWriter"
wdo.ActivePrinter = "Acrobat Distiller"
' Open the Excel xlsument
Set wxls = wxlss.Open(sXlsFile)
' Print the Excel xlsument to the Acrobat Distiller -
' will generate a postscript (.ps) (temporary) file
wdo.ActiveXlsument.PrintOut False, , , sTempFile
' This outcommented part was used while trying to use "Acrobat PDFWriter"
'Do While wdo.BackgroundPrintingStatus > 0
' 'Do nothing - just wait for printing to finish before closing Excel
'Loop
wxls.Close WdDoNotSaveChanges
wdo.ActivePrinter = sPrevPrinter
wdo.Quit WdDoNotSaveChanges
Set wdo = Nothing
' Debug output...
'If bShowDebug Then
WScript.Echo " Distilling to '" + sPDFFile + "'"
'End If
' Distill the postscript file to PDF
oDistiller.FileToPDF sTempFile, sPDFFile, "Print"
Set oDistiller = Nothing
' Delete the temporary postscript file...
fso.DeleteFile (sTempFile)
Set fso = Nothing
MsgBox ("done")
End Function
' *** MAIN **************************************
Call EchoLogo
Call EchoUsage
Call CheckArgs
Call XLS2PDF(arguments.Unnamed.Item(0), arguments.Named.Item("o"))
Set arguments = Nothing
MsgBox ("done")
End Function
MsgBox ("done")
End Sub
|
|
|
|
|
Sorry, I've never used PDFDistiller. We can't possibly support the thousands of 3rd party libraries out there because there are so many of them.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
so is there anyway you could help me .i have acrobat 6.0 installed on my system and rom excel , i click on the create pdf to do that but i need to write the macro that can do the batch conversion for me .. i got this from a friend and it gives me activex object not found bla bla bla
The following VB example convert "c:\*.xls" to pdf file, not include file of sub-folder, the conversion result is in "d:\":
dim ConvertCom as object
dim sResult as string
set ConvertCom=CreateObject("czxls2pdf.ConvertApplication")
ConvertCom.Visible=true
sResult=ConvertCom.ConvertFolder("c:\*.xls","d:\",false,"")
if sResult="" then
msgbox "Convert OK!"
else
msgbox "Convert Failure, error reason is" & sResult
end if
set ConvertCom=nothing
what do i do?
|
|
|
|
|
Different component - exact same answer as before.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
so how do i get the third component? i need to get this resolved pls advice me on what to do.
|
|
|
|
|
It's called a 3rd PARTY component. It means that someone else besides you or Microsoft wrote it. A 3rd party/person wrote the component.
Google for PDF writer! You'll find dozens of them. One here on CP, a bunch over on SourceForge, ...
But in ALL cases, YOU have to learn how to use the component.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
if i download the pdf writer like i ve just done do i need a subroutine to call a function that will create the acrobat ?
|
|
|
|
|
Yes! This stuff doesn't happen automagically! As for exactly how to use the components, you're better off talking the manufacturer of the component!
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
