Oh, you mean u want to open usb port, u need usb to serial/paralel port cable
if u connecting usb port to device serial/paralel port, and then install the
driver for that cable comunication.
i hope you know that you cannot use asm func like out .. or in .. to access
port, you must use createfile function to access that usb port etc. i do not
want explain this (you can gogling about how to program serial port ebook or
other),
If u want to looking what com that u usb port mapped, u can look at in your
registry editor : HKEY_LOCAL_MACHINE\HARDWARE\DEVICEMAP\SERIALCOMM,
you can see all your serial port there including your usb port . Find it and
use that value.
example, Com10 is my usb port so i will write CreateFile('\\.\com10',..) to
open my usb port.
Sorry if my english not good, it's not primary language.
--- In [email protected], "free2inov8" <free2in...@...> wrote:
>
> Thank you for all kindly respons for my problem. But what i really looking
> for is a way to use usb to printer converter/cable like lpt port. I'm not
> going to send data to printer, but send data to printer port. So there is
> difference beetwen them. So i'm looking for how to map the converter to I/O
> address, like on old pc LPT1=378h, LPT2=278h, etc. Could it be done in
> delphi? Or there is something tricky with the converter ?
>
> Thank you.
>
> --- In [email protected], "Nesler, Thomas J" <tnesler@> wrote:
> >
> > When I want to print to a USB printer, I simply find the printer's name
> > and send my job to it. I have never had to go below the standard
> > interface. With Quick Reports for example, I use the Printer settings
> > dialog.
> >
> > Here is some sample code for printing directly to an LPT port:
> >
> > I := Printer.Printers.IndexOf(LblPrinter); // LblPrinter = Name of
> > printer
> > if I >= 0 then Printer.PrinterIndex := I; // -1 means no printer
> > selected
> > with Printer do
> > begin
> > BeginDoc;
> > Canvas.Font.Name := 'Courier New';
> > Canvas.font.size := 12;
> > Canvas.font.Style := [fsBold];
> > Z := Canvas.TextHeight('X'); //Height in pixels
> > X := Canvas.TextWidth('X'); // Width in Pixels
> > Canvas.TextOut(X,0,BuildLine('First'));
> > Canvas.TextOut(X,Z,Line);
> > Canvas.font.Style := [];
> > Canvas.Font.Name := 'Free 3 of 9 Extended'; //Bar code
> > Canvas.font.size := 48;
> > Canvas.TextOut(9*X,2*Z,'*' + IntToStr(OrdNo) + '*');
> > Canvas.Font.Name := 'Courier New';
> > Canvas.font.size := 12;
> > Canvas.font.Style := [fsBold];
> > //................ Other printing on label
> > EndDoc;
> >
> > Tom Nesler
> >
> > -----Original Message-----
> > From: [email protected] [mailto:[email protected]] On
> > Behalf Of free2inov8
> > Sent: Sunday, August 30, 2009 9:25 PM
> > To: [email protected]
> > Subject: [delphi-en] Re: usb virtual printer
> >
> > No Chris, what i'm looking for is a tutorial on how to read and
> > write/send data to USB to LPT converter, just like using LPT port on an
> > old pc/notebook. I'm looking a way on how delphi can handle this task.
> > On old PC we can find LPT port that we use to connect to printer or as
> > an I/O port for data aquisition, but on latest notebook there is only
> > usb port available. So i wonder if i can use USB to printer
> > converter/cable to substitute missing LPT port as an I/O port for data
> > aquisition.
> >
> > Thank you.
> >
> > --- In [email protected], "Chris" <chris@> wrote:
> > >
> > > Are you looking for an LPT port simulator?
> > >
> > >
> > >
> > > _____
> > >
> > > From: [email protected] [mailto:[email protected]] On
> > Behalf
> > > Of free2inov8
> > > Sent: 27 August 2009 11:27 a
> > > To: [email protected]
> > > Subject: [delphi-en] usb virtual printer
> > >
> > >
> > >
> > >
> > >
> > > Hi,I want to use USB printing support device as an I/O, just like LPT
> > on
> > > older PC.
> > > Does anyone have reference/tutorial for that?
> > > Thank you.
> > >
> > >
> > >
> > >
> > >
> > > [Non-text portions of this message have been removed]
> > >
> >
> >
> >
> >
> > ------------------------------------
> >
> > -----------------------------------------------------
> > Home page: http://groups.yahoo.com/group/delphi-en/
> > To unsubscribe: delphi-en-unsubscr...@! Groups Links
> >
>
