FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
Guardar el resultado en un String
Que tal compañeros foreros:
Aqui tengo una cuestion que a lo mejor es sencilla pero yo no doy con bolas, por eso acudo a ustedes. Encontre un codigo el cual saca el nombre de la impresora predeterminada. Pero esta la muestra con un messagebox, el detalle es que lo quiero guardar en una variable tipo string. Les dejo el codigo saludos.. Código:
procedure TForm1.Button1Click(Sender: TObject); var Size,Count,Index:Cardinal; Items: array[0..2047] of TPrinterInfo5; Default:array[0..255] of char; begin EnumPrinters(PRINTER_ENUM_LOCAL+PRINTER_ENUM_CONNECTIONS,nil,5,@items,Sizeof(Items),Size,Count); GetProfileString('Windows','Device','',@default,sizeof(Default)-1); Index:=0; While Not (Default [Index] in [#0,',']) do Inc(Index); Default[Index]:=#0; For Index:=0 to Count-1 do If not Longbool(lstrcmp(@default,Items[Index].pPrinterName)) Then Begin Messagebox(Handle,Items[Index].PPortname,nil,0); Messagebox(Handle,Items[Index].pPrinterName,Nil,0); End; end; Saludos y gracias anticipadas.
__________________
Da conocimiento a los que no saben. |
#2
|
||||
|
||||
[quote=caifan_0883;347555]
Código:
procedure TForm1.Button1Click(Sender: TObject); var Size,Count,Index:Cardinal; Items: array[0..2047] of TPrinterInfo5; Default:array[0..255] of char; begin EnumPrinters(PRINTER_ENUM_LOCAL+PRINTER_ENUM_CONNECTIONS,nil,5,@items,Sizeof(Items),Size,Count); GetProfileString('Windows','Device','',@default,sizeof(Default)-1); Index:=0; While Not (Default [Index] in [#0,',']) do Inc(Index); Default[Index]:=#0; For Index:=0 to Count-1 do If not Longbool(lstrcmp(@default,Items[Index].pPrinterName)) Then Begin Messagebox(Handle,Items[Index].PPortname,nil,0); Messagebox(Handle,Items[Index].pPrinterName,Nil,0); End; end; Código:
MiImpresora := String(Items[Index].pPrinterName); |
#3
|
||||
|
||||
Hola caifan_0883, como te han indicado, es solo asignar lo que tienes en PPortname y pPrinterName a tus variables.
Saluditos
__________________
Disfruten cada minuto de su vida a lado de sus seres queridos como si fuese el ultimo, uno nunca sabe lo que puede pasar. |
#4
|
|||
|
|||
Gracias compañeros..
Andaba un poco perdido jejeje. Estaba en mi momento de bloqueo. Gracias funciona. Saludos!!
__________________
Da conocimiento a los que no saben. |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Guardar cambios y no guardar ayuda!! | THACKER | Varios | 1 | 21-07-2008 17:49:52 |
string de un dbedit a entero para guardar la cadena | Nereida | Varios | 3 | 06-05-2008 15:59:34 |
¿Cómo guardar el Valor de TColor como un String? | nesetru | Gráficos | 3 | 27-02-2004 20:21:32 |
Como guardar en una varible el resultado de un conteo mediante un Query? | Ricsato | SQL | 2 | 16-10-2003 00:38:56 |
Como guardar en una tabla el resultado de un query mostrado en un dbgrid | luisreg | OOP | 3 | 09-10-2003 01:35:01 |
|