-
Posts
377 -
Joined
-
Last visited
-
Days Won
2
Posts posted by VLNUNES
-
-
Tente o gerador de app Glide que utiliza a Google Sheets , é de fácil aprendizagem por ser sem código.
-
-
Alá a todos;
Alguém pode dar uma dica de como realizar a comunicação com a balança toledo prix 4 uno wifi para captura de peso ?
Obrigado;
Vander
-
-
Testei assim e deu certo:
No inicio do PRG principal
...
...
IF FindWindow( 0, "...:: Sistema SISCON2 ::...") > 0
RETURN NIL
ENDIF
...
...Na chamada da tela inicial
...
...
DEFINE WINDOW oWnd TITLE "...:: Sistema SISCON2 ::..." ICON ..
No outro sistema trocar o nome em vermelho.Teste de funcionamento.
Vander
-
Olá;
Na parte superior "a direita" clique no seu nome de usuário / configurações da conta / endereço de e-mail.
Atémais.
-
Tenho um calendário bem simples, que talvez sirva de base.
No PRG principal
//---------------- INICIO DO CALENDÁRIOdDia := ctod("01/"+STRZERO(MONTH(date()),2)+"/"+STRZERO(YEAR(date()),4))MESA :=""DATAEXT(DATE())DATAATUAL := STRZERO(DAY(DATE()),2)+" de "+mesa+" de "+STRZERO(YEAR(DATE()),4)cDia :=""UltDiaMes(date())//---------------- FUNDO DOA TELADEFINE BITMAP oBmp FILE "figuras\backg.bmp"DEFINE DIALOG oWnd1 RESOURCE "CALENDA" of oWnd COLOR RGB (000,000,000) ,RGB (192,192,192)REDEFINE SAY oSAYCAL38 PROMPT DATAATUAL ID 38 FONT oFontCALE2 COLOR RGB (000,000,000) ,RGB (255,255,255)REDEFINE SAY oSAYCAL39 PROMPT "" ID 39 FONT oFontCALE2 COLOR RGB (255,255,255) ,RGB (255,255,255)REDEFINE SAY oSAYCAL40 PROMPT "DOM" ID 40 FONT oFontCALE3 COLOR RGB (000,000,000) ,RGB (255,255,255)REDEFINE SAY oSAYCAL41 PROMPT "SEG" ID 41 FONT oFontCALE3 COLOR RGB (000,000,000) ,RGB (255,255,255)REDEFINE SAY oSAYCAL42 PROMPT "TER" ID 42 FONT oFontCALE3 COLOR RGB (000,000,000) ,RGB (255,255,255)REDEFINE SAY oSAYCAL43 PROMPT "QUA" ID 43 FONT oFontCALE3 COLOR RGB (000,000,000) ,RGB (255,255,255)REDEFINE SAY oSAYCAL44 PROMPT "QUI" ID 44 FONT oFontCALE3 COLOR RGB (000,000,000) ,RGB (255,255,255)REDEFINE SAY oSAYCAL45 PROMPT "SEX" ID 45 FONT oFontCALE3 COLOR RGB (000,000,000) ,RGB (255,255,255)REDEFINE SAY oSAYCAL46 PROMPT "SAB" ID 46 FONT oFontCALE3 COLOR RGB (000,000,000) ,RGB (255,255,255)if Dow(dDia)=1id1 := 1elseif Dow(dDia)=2id1 := 2elseif Dow(dDia)=3id1 := 3elseif Dow(dDia)=4id1 := 4elseif Dow(dDia)=5id1 := 5elseif Dow(dDia)=6id1 := 6elseif Dow(dDia)=7id1 := 7endifREDEFINE SAY oSAYCAL01 prompt "01" ID id1+00 of oWnd1 FONT oFontCALE1 COLOR RGB (0,0,0),RGB (255,255,255)REDEFINE SAY oSAYCAL02 prompt "02" ID id1+01 of oWnd1 FONT oFontCALE1 COLOR RGB (0,0,0),RGB (255,255,255)REDEFINE SAY oSAYCAL03 prompt "03" ID id1+02 of oWnd1 FONT oFontCALE1 COLOR RGB (0,0,0),RGB (255,255,255)REDEFINE SAY oSAYCAL04 prompt "04" ID id1+03 of oWnd1 FONT oFontCALE1 COLOR RGB (0,0,0),RGB (255,255,255)REDEFINE SAY oSAYCAL05 prompt "05" ID id1+04 of oWnd1 FONT oFontCALE1 COLOR RGB (0,0,0),RGB (255,255,255)REDEFINE SAY oSAYCAL06 prompt "06" ID id1+05 of oWnd1 FONT oFontCALE1 COLOR RGB (0,0,0),RGB (255,255,255)REDEFINE SAY oSAYCAL07 prompt "07" ID id1+06 of oWnd1 FONT oFontCALE1 COLOR RGB (0,0,0),RGB (255,255,255)REDEFINE SAY oSAYCAL08 prompt "08" ID id1+07 of oWnd1 FONT oFontCALE1 COLOR RGB (0,0,0),RGB (255,255,255)REDEFINE SAY oSAYCAL09 prompt "09" ID id1+08 of oWnd1 FONT oFontCALE1 COLOR RGB (0,0,0),RGB (255,255,255)REDEFINE SAY oSAYCAL10 prompt "10" ID id1+09 of oWnd1 FONT oFontCALE1 COLOR RGB (0,0,0),RGB (255,255,255)REDEFINE SAY oSAYCAL11 prompt "11" ID id1+10 of oWnd1 FONT oFontCALE1 COLOR RGB (0,0,0),RGB (255,255,255)REDEFINE SAY oSAYCAL12 prompt "12" ID id1+11 of oWnd1 FONT oFontCALE1 COLOR RGB (0,0,0),RGB (255,255,255)REDEFINE SAY oSAYCAL13 prompt "13" ID id1+12 of oWnd1 FONT oFontCALE1 COLOR RGB (0,0,0),RGB (255,255,255)REDEFINE SAY oSAYCAL14 prompt "14" ID id1+13 of oWnd1 FONT oFontCALE1 COLOR RGB (0,0,0),RGB (255,255,255)REDEFINE SAY oSAYCAL15 prompt "15" ID id1+14 of oWnd1 FONT oFontCALE1 COLOR RGB (0,0,0),RGB (255,255,255)REDEFINE SAY oSAYCAL16 prompt "16" ID id1+15 of oWnd1 FONT oFontCALE1 COLOR RGB (0,0,0),RGB (255,255,255)REDEFINE SAY oSAYCAL17 prompt "17" ID id1+16 of oWnd1 FONT oFontCALE1 COLOR RGB (0,0,0),RGB (255,255,255)REDEFINE SAY oSAYCAL18 prompt "18" ID id1+17 of oWnd1 FONT oFontCALE1 COLOR RGB (0,0,0),RGB (255,255,255)REDEFINE SAY oSAYCAL19 prompt "19" ID id1+18 of oWnd1 FONT oFontCALE1 COLOR RGB (0,0,0),RGB (255,255,255)REDEFINE SAY oSAYCAL20 prompt "20" ID id1+19 of oWnd1 FONT oFontCALE1 COLOR RGB (0,0,0),RGB (255,255,255)REDEFINE SAY oSAYCAL21 prompt "21" ID id1+20 of oWnd1 FONT oFontCALE1 COLOR RGB (0,0,0),RGB (255,255,255)REDEFINE SAY oSAYCAL22 prompt "22" ID id1+21 of oWnd1 FONT oFontCALE1 COLOR RGB (0,0,0),RGB (255,255,255)REDEFINE SAY oSAYCAL23 prompt "23" ID id1+22 of oWnd1 FONT oFontCALE1 COLOR RGB (0,0,0),RGB (255,255,255)REDEFINE SAY oSAYCAL24 prompt "24" ID id1+23 of oWnd1 FONT oFontCALE1 COLOR RGB (0,0,0),RGB (255,255,255)REDEFINE SAY oSAYCAL25 prompt "25" ID id1+24 of oWnd1 FONT oFontCALE1 COLOR RGB (0,0,0),RGB (255,255,255)REDEFINE SAY oSAYCAL26 prompt "26" ID id1+25 of oWnd1 FONT oFontCALE1 COLOR RGB (0,0,0),RGB (255,255,255)REDEFINE SAY oSAYCAL27 prompt "27" ID id1+26 of oWnd1 FONT oFontCALE1 COLOR RGB (0,0,0),RGB (255,255,255)REDEFINE SAY oSAYCAL28 prompt "28" ID id1+27 of oWnd1 FONT oFontCALE1 COLOR RGB (0,0,0),RGB (255,255,255)if cDia > 28REDEFINE SAY oSAYCAL29 prompt "29" ID id1+28 of oWnd1 FONT oFontCALE1 COLOR RGB (0,0,0),RGB (255,255,255)endifif cDia > 29REDEFINE SAY oSAYCAL30 prompt "30" ID id1+29 of oWnd1 FONT oFontCALE1 COLOR RGB (0,0,0),RGB (255,255,255)endifif cDia > 30REDEFINE SAY oSAYCAL31 prompt "31" ID id1+30 of oWnd1 FONT oFontCALE1 COLOR RGB (0,0,0),RGB (255,255,255)endifACTIVATE DIALOG oWnd1 nowait ON PAINT (DrawBitmap(oWnd1:hDC,oBmp:hBitmap,0,0,oWnd1:nWidth,oWnd1:nHeight),;oWnd1:Move( nResVert-(nResVert-208),nResHoriz-372 ) )oFontCALE1:END()oFontCALE2:END()oFontCALE3:END()//---------------- FIM DO CALENDÁRIO//-------------- PEGAR MES POR EXTENSSOFUNCTION DATAEXT(DIIA)if Month(DIIA)=1mesa:="janeiro"elseif Month(Date())=2mesa:="fevereiro"elseif Month(Date())=3mesa:="março"elseif Month(Date())=4mesa:="abril"elseif Month(Date())=5mesa:="maio"elseif Month(Date())=6mesa:="junho"elseif Month(Date())=7mesa:="julho"elseif Month(Date())=8mesa:="agosto"elseif Month(Date())=9mesa:="setembro"elseif Month(Date())=10mesa:="outubro"elseif Month(Date())=11mesa:="novembro"elseif Month(Date())=12mesa:="dezembro"endifRETURN ( MESA )//------------------- VERIFICA O ULTIMO DIA DO MESFUNCTION UltDiaMes(dData1)LOCAL nAno:=0, nMes:=0, dData2:=CTOD("")dData1:=CTOD("01"+SUBSTR(DTOC(dData1),3))nAno := YEAR(dData1)nMes := MONTH(dData1)IF MONTH(dData1)==12dData2:= CTOD( "01/01/"+STRZERO(nAno+1,4) )ELSEdData2:= CTOD( "01/"+STRZERO(nMes+1,2)+"/"+STRZERO(nAno,4) )ENDIFcDia :=dData2-dData1RETURN( CTOD(StrZero(cDia,2)+SUBSTR(DTOC(dData1),3)) ) // EroniRC do calendárioCALENDA DIALOG 382, 15, 200, 193STYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLEFONT 8, "MS Sans Serif"{LTEXT "39", 39, 5, 21, 190, 168, WS_BORDER | WS_GROUPCTEXT "DOM", 40, 8, 23, 22, 8CTEXT "SEG", 41, 35, 23, 22, 8CTEXT "TER", 42, 62, 23, 22, 8CTEXT "QUA", 43, 89, 23, 22, 8CTEXT "QUI", 44, 116, 23, 22, 8CTEXT "SEX", 45, 143, 23, 22, 8CTEXT "SAB", 46, 170, 23, 22, 8CTEXT "38", 38, 5, 3, 190, 17CTEXT "", 1, 8, 34, 22, 22CTEXT "", 2, 35, 34, 22, 22CTEXT "", 3, 62, 34, 22, 22CTEXT "", 4, 89, 34, 22, 22CTEXT "", 5, 116, 34, 22, 22CTEXT "", 6, 143, 34, 22, 22CTEXT "", 7, 170, 34, 22, 22CTEXT "", 8, 8, 60, 22, 22CTEXT "", 9, 35, 60, 22, 22CTEXT "", 10, 62, 60, 22, 22CTEXT "", 11, 89, 60, 22, 22CTEXT "", 12, 116, 60, 22, 22CTEXT "", 13, 143, 60, 22, 22CTEXT "", 14, 170, 60, 22, 22CTEXT "", 15, 8, 86, 22, 22CTEXT "", 16, 35, 86, 22, 22CTEXT "", 17, 62, 86, 22, 22CTEXT "", 18, 89, 86, 22, 22CTEXT "", 19, 116, 86, 22, 22CTEXT "", 20, 143, 86, 22, 22CTEXT "", 21, 170, 86, 22, 22CTEXT "", 22, 8, 112, 22, 22CTEXT "", 23, 35, 112, 22, 22CTEXT "", 24, 62, 112, 22, 22CTEXT "", 25, 89, 112, 22, 22CTEXT "", 26, 116, 112, 22, 22CTEXT "", 27, 143, 112, 22, 22CTEXT "", 28, 170, 112, 22, 22CTEXT "", 29, 8, 138, 22, 22CTEXT "", 30, 35, 138, 22, 22CTEXT "", 31, 62, 138, 22, 22CTEXT "", 32, 89, 138, 22, 22CTEXT "", 33, 116, 138, 22, 22CTEXT "", 34, 143, 138, 22, 22CTEXT "", 35, 170, 138, 22, 22CTEXT "", 36, 8, 164, 22, 22CTEXT "", 37, 35, 164, 22, 22} -
-
Olá a todos;Tenho que posicionar o cursor sempre na 1ª linha da listbox após um filtro, tem como ?Após selecionar este filtro, posicionar na 1ª linha//-----------------------------------------REDEFINE COMBOBOX oCATEGO VAR mgenerF ITEMS geneF ID 112 OF TELAVEND1 VALID FILTRTP(mgenerF) WHEN TEMCLI//-----------------------------------------Listbox em questão//-----------------------------------------REDEFINE LISTBOX LIACER224 FIELDS ESTOQU->(STRZERO(CODLOJA,5)) +" |"+ ;ESTOQU->(SUBSTR(DESCRIC,1,42)) +"|"+ ;ESTOQU->(STRZERO(QUANTES,4)) +"|"+ ;ESTOQU->(TRANSFORM(VEVISTA,"@E 99999.99"))+"|"+ ;ESTOQU->(TRANSFORM(VEPRAZO,"@E 99999.99"))+"|"+ ;ESTOQU->(TRANSFORM(VEPLAAV,"@E 99999.99"))+"|"+ ;ESTOQU->(TRANSFORM(VEPLAPR,"@E 99999.99")) ID 110 ;HEADERS "CÓDIGO|DESCRIÇÃO |QDE.|À VISTA|À PRAZO|PLANO AV|PLANO PR" ;FONT FONTVEND12 COLOR RGB (000,000,000),RGB (255,255,192) ;ON LEFT DBLCLICK(ENVIALISTA1(xTEMPLA)) WHEN TEMCLI//-----------------------------------------Filtro esta funcionando, mas o quando volta para a listbox fica todo bagunçado//-----------------------------------------FUNCTION FILTRTP(mgenerF)SELECT ESTOQUIF mgenerF = "* TODOS *"SET FILTER TOELSESET FILTER TO TPMERCA = mgenerFENDIFDBGOTOP()LIACER224 :Refresh() // Estabiliza o Browse/ListboxxSetFocus( LIACER224 )RETURN .T.//-----------------------------------------Obrigado;Vander
-
-
Help completo do WGET
GNU Wget 1.11.4, a non-interactive network retriever. Usage: wget [OPTION]... [url]... Mandatory arguments to long options are mandatory for short options too. Startup: -V, --version display the version of Wget and exit. -h, --help print this help. -b, --background go to background after startup. -e, --execute=COMMAND execute a `.wgetrc'-style command. Logging and input file: -o, --output-file=FILE log messages to FILE. -a, --append-output=FILE append messages to FILE. -d, --debug print lots of debugging information. -q, --quiet quiet (no output). -v, --verbose be verbose (this is the default). -nv, --no-verbose turn off verboseness, without being quiet. -i, --input-file=FILE download URLs found in FILE. -F, --force-html treat input file as HTML. -B, --base=URL prepends URL to relative links in -F -i file. Download: -t, --tries=NUMBER set number of retries to NUMBER (0 unlimits). --retry-connrefused retry even if connection is refused. -O, --output-document=FILE write documents to FILE. -nc, --no-clobber skip downloads that would download to existing files. -c, --continue resume getting a partially-downloaded file. --progress=TYPE select progress gauge type. -N, --timestamping don't re-retrieve files unless newer than local. -S, --server-response print server response. --spider don't download anything. -T, --timeout=SECONDS set all timeout values to SECONDS. --dns-timeout=SECS set the DNS lookup timeout to SECS. --connect-timeout=SECS set the connect timeout to SECS. --read-timeout=SECS set the read timeout to SECS. -w, --wait=SECONDS wait SECONDS between retrievals. --waitretry=SECONDS wait 1..SECONDS between retries of a retrieval. --random-wait wait from 0...2*WAIT secs between retrievals. --no-proxy explicitly turn off proxy. -Q, --quota=NUMBER set retrieval quota to NUMBER. --bind-address=ADDRESS bind to ADDRESS (hostname or IP) on local host. --limit-rate=RATE limit download rate to RATE. --no-dns-cache disable caching DNS lookups. --restrict-file-names=OS restrict chars in file names to ones OS allows. --ignore-case ignore case when matching files/directories. --user=USER set both ftp and http user to USER. --password=PASS set both ftp and http password to PASS. Directories: -nd, --no-directories don't create directories. -x, --force-directories force creation of directories. -nH, --no-host-directories don't create host directories. --protocol-directories use protocol name in directories. -P, --directory-prefix=PREFIX save files to PREFIX/... --cut-dirs=NUMBER ignore NUMBER remote directory components. HTTP options: --http-user=USER set http user to USER. --http-password=PASS set http password to PASS. --no-cache disallow server-cached data. -E, --html-extension save HTML documents with `.html' extension. --ignore-length ignore `Content-Length' header field. --header=STRING insert STRING among the headers. --max-redirect maximum redirections allowed per page. --proxy-user=USER set USER as proxy username. --proxy-password=PASS set PASS as proxy password. --referer=URL include `Referer: URL' header in HTTP request. --save-headers save the HTTP headers to file. -U, --user-agent=AGENT identify as AGENT instead of Wget/VERSION. --no-http-keep-alive disable HTTP keep-alive (persistent connections). --no-cookies don't use cookies. --load-cookies=FILE load cookies from FILE before session. --save-cookies=FILE save cookies to FILE after session. --keep-session-cookies load and save session (non-permanent) cookies. --post-data=STRING use the POST method; send STRING as the data. --post-file=FILE use the POST method; send contents of FILE. --content-disposition honor the Content-Disposition header when choosing local file names (EXPERIMENTAL). --auth-no-challenge Send Basic HTTP authentication information without first waiting for the server's challenge. HTTPS (SSL/TLS) options: --secure-protocol=PR choose secure protocol, one of auto, SSLv2, SSLv3, and TLSv1. --no-check-certificate don't validate the server's certificate. --certificate=FILE client certificate file. --certificate-type=TYPE client certificate type, PEM or DER. --private-key=FILE private key file. --private-key-type=TYPE private key type, PEM or DER. --ca-certificate=FILE file with the bundle of CA's. --ca-directory=DIR directory where hash list of CA's is stored. --random-file=FILE file with random data for seeding the SSL PRNG. --egd-file=FILE file naming the EGD socket with random data. FTP options: --ftp-user=USER set ftp user to USER. --ftp-password=PASS set ftp password to PASS. --no-remove-listing don't remove `.listing' files. --no-glob turn off FTP file name globbing. --no-passive-ftp disable the "passive" transfer mode. --retr-symlinks when recursing, get linked-to files (not dir). --preserve-permissions preserve remote file permissions. Recursive download: -r, --recursive specify recursive download. -l, --level=NUMBER maximum recursion depth (inf or 0 for infinite). --delete-after delete files locally after downloading them. -k, --convert-links make links in downloaded HTML point to local files. -K, --backup-converted before converting file X, back up as X.orig. -m, --mirror shortcut for -N -r -l inf --no-remove-listing. -p, --page-requisites get all images, etc. needed to display HTML page. --strict-comments turn on strict (SGML) handling of HTML comments. Recursive accept/reject: -A, --accept=LIST comma-separated list of accepted extensions. -R, --reject=LIST comma-separated list of rejected extensions. -D, --domains=LIST comma-separated list of accepted domains. --exclude-domains=LIST comma-separated list of rejected domains. --follow-ftp follow FTP links from HTML documents. --follow-tags=LIST comma-separated list of followed HTML tags. --ignore-tags=LIST comma-separated list of ignored HTML tags. -H, --span-hosts go to foreign hosts when recursive. -L, --relative follow relative links only. -I, --include-directories=LIST list of allowed directories. -X, --exclude-directories=LIST list of excluded directories. -np, --no-parent don't ascend to the parent directory. Mail bug reports and suggestions to <bug-wget@gnu.org>.
-
O "WGET" que eu uso, é um aplicativo de linha de comando que baixa um arquivo ou todo o site.
Linha de comando:
LOCAL cCommand1 := 'wget -c http://wwwseusite.com.br/pastado site/arquivo a baixar.com extenção -P "pasta onde vai salvar o arquivo"'
RUN (cCommand1)
Existem outros comandos que eu não utilizo
http://elias.praciano.com/2013/12/o-comando-wget-em-10-exemplos/
-
Obrigado Theotokos,Resolvido com a função do Euclides ( Forum PCTOLEDO)use arquivonMin := nMax := valordbeval( {|| iif(nMin > valor, nMIn := valor,), iif(nMax < valor, nMax := valor,) } )? str(nMin)+str(nMax,15)Vander
-
Ola;Em uma série de números com no mínimo 2 e no máximo 10 números como pegar o menor e o maior valor ?EX: 21.00 – 21.10 – 25.13 -23.32 – 20.01Neste caso pegar o 21.00 e 25.13De uma forma mais trabalhosa (são 10 séries de números), eu posso jogar os números em um DBF temporário indexar e pegar os valores corretos, mas como pegar estes valores de outra forma ?Obrigado;Vander
-
Linha de comando : WinExec("C:\IrfanView\i_view32.exe "+FOTO+" /resize=(600,800) /aspectratio /bpp=8",3)
Arquivo de opções do irfanview (C:\IrfanView\i_options.txt)
-------------------------------------------------------------------------------File : 'options.txt' - Command line options for IrfanViewAuthor: Irfan SkiljanE-Mail: irfanview@gmx.netWWW : http://www.irfanview.com-------------------------------------------------------------------------------List of all command line options supported in IrfanView:--------------------------------------------------------/one - force "only one instance"/fs - force Full Screen display/bf - force "Fit images to desktop" display option/title=text - set window title to "text"/pos=(x,y) - move IrfanView window to x,y/convert=filename - convert input file to "filename" and CLOSE IrfanView(Note: See pattern help file page for more options)/slideshow=txtfile - play slideshow with the files from "txtfile"/slideshow=folder - play slideshow with the files from "folder"/thumbs - force thumbnails/killmesoftly - close all IrfanView instances/closeslideshow - close slideshow and IrfanView after the last image/page=X - open page number X from a multipage input image/crop=(x,y,w,h) - crop input image: x-start, y-start, width, height/print - print to default printer and CLOSE IrfanView/print="Name" - print to specific printer and CLOSE IrfanView/resize=(w,h) - resize input image to w (width) and h (height)/resample=(w,h) - resample input image to w (width) and h (height)/capture=X - capture the screen or window/ini - use the Windows folder for INI/LST files (read/save)/ini="Folder" - use the folder "Folder" for INI/LST files (read/save)/clippaste - paste image from the clipboard/clipcopy - copy image to the clipboard/silent - don't show messages for command line read/save errors/invert - invert the input image/dpi=(x,y) - change image DPI values, set DPIs for scanning/scan - acquire the image from the TWAIN device (show TWAIN dialog)/scanhidden - acquire the image from the TWAIN device (hide TWAIN dialog)/batchscan=(options) - simulate menu: File->Batch Scan, see below for example/bpp=BitsPerPixel - change color depth of the input image to BitsPerPixel/swap_bw - swap black and white color/gray - convert input image to grayscale/rotate_r - rotate input image to right/rotate_l - rotate input image to left/filepattern="x" - browse only specific files/sharpen=X - open image and apply the sharpen filter value X/contrast=X - open image and apply the contrast value X/hide=X - hide toolbar, status bar, menu and/or caption of the main window/aspectratio - used for /resize and /resample, keep image proportions/info=txtfile - write image infos to "txtfile"/append=tiffile - append image as (TIF) page to "tiffile"/multitif=(tif,files) - create multipage TIF from input files/jpgq=X - set JPG save quality/tifc=X - set TIF save compression/wall=X - set image as wallpaper/extract=(file,ext) - extract all pages from a multipage file/import_pal=palfile - import and apply a special palette to the image (PAL format)/monitor=X - start EXE-Slideshow on monitor XImportant notes:- Only lower case options are supported (don't type any UPPERCASE letters) !- Input file name (if required) is always the first parameter!- Use "" for file names with spaces, example: "dummy test file.jpg"- Write always the FULL paths for file names- You can combine several options in one command- Wildcards supported only for /convert, /print and /info- Maximal command line length is limited by WindowsExample for conversion:i_view32.exe c:\test.bmp /convert=c:\giftest.gif=> Convert file: 'c:\test.bmp' to 'c:\giftest.gif' without GUI ;-)i_view32.exe c:\*.jpg /convert=d:\temp\*.gifi_view32.exe c:\*.jpg /resample=(500,300) /aspectratio /convert=d:\temp\*.pngi_view32.exe c:\test.bmp /convert=c:\test_$Wx$H.jpg(Note: supported are all IrfanView read/save formats except audio/video)Example for slideshow:i_view32.exe /slideshow=c:\mypics.txt(Note: The file 'c:\mypics.txt' contains, in each line, a name of an image file,including the full path OR path relative to "i_view32.exe")i_view32.exe /slideshow=c:\images\i_view32.exe /slideshow=c:\images\*.jpgi_view32.exe /slideshow=c:\images\test*.jpgExample for closeslideshow:i_view32.exe /slideshow=c:\mypics.txt /closeslideshow=> IrfanView will be closed after the last image from 'c:\mypics.txt'Example for thumbnails:i_view32.exe c:\test\image1.jpg /thumbs=> open 'image1.jpg' and display thumbnails from directory 'c:\test'ori_view32.exe c:\test /thumbs=> display thumbnails from directory 'c:\test'Example for close:i_view32.exe /killmesoftly=> close IrfanView and terminate all instancesExample for page:i_view32.exe c:\test.tif /page=3=> Open page number 3 from the multipage image 'c:\test.tif'Example for crop:i_view32.exe c:\test.jpg /crop=(10,10,300,300)=> Open 'c:\test.jpg' and crop: x-start=10, y-start=10, width=300, height=300Example for print:i_view32.exe c:\test.jpg /print=> Open 'c:\test.jpg', print the image to default printer and close IrfanViewi_view32.exe c:\test.jpg /print="Printer Name"=> Open 'c:\test.jpg', print the image to specific printer and close IrfanViewi_view32.exe c:\*.jpg /print=> Print all JPGs from "C:\" and close IrfanViewExample for resize OR resample:i_view32.exe c:\test.jpg /resize=(300,300)=> Open 'c:\test.jpg' and resize: width=300, height=300(Note: Resample uses the the active resample filter from the INI file)i_view32.exe c:\test.jpg /resize=(300,300) /aspectratio=> Open 'c:\test.jpg' and resize: width = max. 300, height = max. 300, proportionali_view32.exe c:\test.jpg /resize=(300,0) /aspectratio=> Open 'c:\test.jpg' and resize: width=300, height=proportinali_view32.exe c:\test.jpg /resize=(300,0)=> Open 'c:\test.jpg' and resize: width=300, height=originali_view32 c:\test.jpg /resize=(150p,150p)=> Open 'c:\test.jpg' and resize: width=150%, height=150%Example for capture:i_view32.exe /capture=0=> Capture the whole screeni_view32.exe /capture=1=> Capture the foreground windowi_view32.exe /capture=2=> Capture the client area of the foreground windowAdvanced examples:i_view32.exe /capture=1 /convert=c:\test.jpgCapture foreground window and save result as file.i_view32.exe /capture=1 /convert=c:\capture_$U(%d%m%Y_%H%M%S).jpgCapture foreground window and save result as file; the file name contains time stamp.Example for ini:i_view32.exe /inii_view32.exe c:\test.jpg /inii_view32.exe c:\test.jpg /ini="c:\temp\"Example for clipboard paste:i_view32.exe /clippastei_view32.exe /clippaste /convert=c:\test.gifExample for clipboard copy:i_view32.exe c:\test.jpg /clipcopyi_view32.exe c:\test.jpg /clipcopy /killmesoftlyExample for /invert:i_view32.exe c:\test.jpg /invertExample for /dpi:i_view32.exe c:\test.jpg /dpi=(72,72)Example for /scan:i_view32.exe /scani_view32.exe /scanhiddeni_view32.exe /scanhidden /dpi=(150,150)i_view32.exe /scan /convert=c:\test.gifi_view32.exe /scanhidden /convert=c:\test.gifi_view32.exe /print /scanExample for /batchscan=(options):options = all 8 options from the batch scan dialog:filename, index, increment, digits, skip, dest-folder, save-extension, multi-tifi_view32.exe /batchscan=(scanfile,1,1,2,1,c:\temp,bmp,0)i_view32.exe /batchscan=(scanfile,1,1,2,1,c:\temp,bmp,0) /dpi=(150,150)i_view32.exe /batchscan=(scanfile,1,1,2,0,c:\temp,tif,1)i_view32.exe /batchscan=(scanfile,1,1,2,1,c:\temp,bmp,0) /scanhiddenExample for /bpp:Example: i_view32.exe c:\test.jpg /bpp=8Supported BPP-values: 1, 4, 8 and 24 (decrease/increase color depth)=> Open 'c:\test.jpg' and reduce to 256 colorsExample for /filepattern:i_view32.exe c:\images\ /thumbs /filepattern="*.jpg"=> Go to folder "c:\images\" and show JPG thumbnails onlyi_view32.exe c:\images\ /thumbs /filepattern="123*.jpg"=> Go to folder "c:\images\" and show JPG with names "123*" as thumbnailsExample for /sharpen:i_view32.exe c:\test.jpg /sharpen=33Examples for /hide:Values (can be combined (add values)):Toolbar 1Status bar 2Menu bar 4Caption 8i_view32.exe c:\test.jpg /hide=1=> Open 'c:\test.jpg', hide toolbar onlyi_view32.exe c:\test.jpg /hide=3=> Open 'c:\test.jpg', hide toolbar and status bari_view32.exe c:\test.jpg /hide=12=> Open 'c:\test.jpg', hide caption and menu bari_view32.exe c:\test.jpg /hide=15=> Open 'c:\test.jpg', hide allExamples for /info:i_view32.exe c:\test.jpg /info=c:\test.txti_view32.exe c:\*.jpg /info=c:\jpgs.txtExample for /append:i_view32.exe c:\test.jpg /append=c:\test.tif=> Open 'c:\test.jpg' and append it as page to 'c:\test.tif'Example for /multitif:Syntax: /multitif=(tifname,file1,...,fileN)First file is the name of the result TIF file.i_view32.exe /multitif=(c:\test.tif,c:\test1.bmp,c:\dummy.jpg)=> Create multipage TIF (c:\test.tif) from 2 other filesExample for /jpgq:i_view32.exe c:\test.jpg /jpgq=75 /convert=c:\new.jpg=> Open 'c:\test.jpg' and save it as c:\new.jpg, quality = 75Quality range: 1 - 100.Example for /tifc:i_view32.exe c:\test.jpg /tifc=4 /convert=c:\new.tif=> Open 'c:\test.jpg' and save it as c:\new.tif, compression = Fax4Compressions: 0 = None, 1 = LZW, 2 = Packbits, 3 = Fax3, 4 = Fax4, 5 = Huffman,6 = JPG, 7 = ZIPExample for wallpaper:i_view32.exe c:\test.jpg /wall=0=> Open 'c:\test.jpg' and set is as wallpaper (centered)i_view32.exe c:\test.jpg /wall=1=> Open 'c:\test.jpg' and set is as wallpaper (tiled)i_view32.exe c:\test.jpg /wall=2=> Open 'c:\test.jpg' and set is as wallpaper (stretched)Example for /extract:i_view32.exe c:\multipage.tif /extract=(c:\temp,jpg)=> Open 'c:\multipage.tif' and save all pages to folder 'c:\temp' as JPGsExample for /monitor:MySlideshow.exe /monitor=2=> Start standalone slideshow on monitor 2 -
-
-
-
Só completando
01 - Herberson Carlos Gontijo (Hergon) - Belo Horizonte / MG02 - Claudia M. R. Glória Gontijo (Cacau7) - Belo Horizonte / MG03 - AnaCatacombs - Cianorte / PR04 - Joaosolution - Contagem / MG05 - Nárlem - Belo Horizonte / MG06 - Vander Lúcio Nunes (VLNunes) - João Monlevade / MG07 - Gilmer - Sorocaba / SP08 - Evandro G. de Paula - Curvelo / MG -
-
Herberson;
Concordo com você, se ficar decidido o local e a data com antecedência como foi no encontro em BH, poderemos programar tudo com muita folga, e acho que poderia ser realizado nos mesmos moldes do encontro de BH mesmo que seja em outra cidade/estado inclusive com pagamento parcelado para que o encontro possa ser realizado em 2 ou 3 dias “só participei do encontro em BH, porque para ir a outro estado para apenas 1 dia de encontro fica difícil.”
O encontro pode ser realizado com ou sem o Linares, pois temos muitas pessoas aqui podem palestrar.
Vander
-
Obrigados a todos,
Resolvido com a dica de Erciley Junior
LOCAL cTEXTCG := {"Selecione","Alameda","Avenida","Beco","Estrada","Praça","Rodovia","Rua","Travessa"}LOCAL nCombo := 1......REDEFINE COMBOBOX oCATEGO VAR nCombo ITEMS cTEXTCG ID 101 OF CADACEPS......Vander
-
Como iniciar combobox com um item já selecionado ?Por exemplo tenhocTEXTCG := {"Selecione","Alameda","Avenida","Beco","Estrada","Praça","Rodovia","Rua","Travessa"}Gostaria que ao abrir a tela o item Selecione já estivesse no combobox.Obrigado;Vander
-
Olá Betovsp;
O erro pode está sendo provocado devido a "cDirWord:=CurDrive() +":\"+ CurDir()".Tente por o seu "RECALC.DOC" em uma pasta e copia-lo para uma pasta temporária conhecida exemplo "C:\doc_tmp" e trocar "cDirWord+"\RECALC.DOC" por "C:\doc_tmp"\RECALC.DOC" e veja se funciona, pois tive um problema semelhante e o Evandro me passou a dica. Hoje faço assim :
cORIG := "AUXILIAR\Ficha de paciente.DOC"
cDEST := "C:\ODTTEMP\MODELO\FICHA.doc"
// Copia o arquivo original para a pasta temporária
COPYFILE(cORIG ,cDEST,.F.)
// Gerar um array com nome do "campo" que estará entre [] a ser substituído no word e o conteúdo do arquivo de dados
SELECT FICHPZAPAPPEND BLANREPLACE COPACCAR WITH STRZERO(PACIE->CODIGOPA,5) // CÓDIGOREPLACE NOPACCAR WITH ALLTRIM(PACIE->NOMEDOPA) // NOMEREPLACE DNPACCAR WITH DTOC(PACIE->DTANASPA) // DATA NASCIMENTOREPLACE MRPACCAR WITH ALLTRIM(PACIE->MEDICOPA) // MÉDICOREPLACE DIPACCAR WITH DTOC(PACIE->DTAINCPA) // DATA INICIOaCampos := {}//------------------- DADOS DO PACIENTEaadd( aCampos, { 'codpaci',ALLTRIM(FICHP->COPACCAR ) } ) // CÓD. PACIENTEaadd( aCampos, { 'nompaci',ALLTRIM(FICHP->NOPACCAR ) } ) // NOME PACIENTEaadd( aCampos, { 'dtnpaci',ALLTRIM(FICHP->DNPACCAR ) } ) // DT NASCIaadd( aCampos, { 'medresp',ALLTRIM(FICHP->MRPACCAR ) } ) // MÉD. RESPONaadd( aCampos, { 'dtintra',ALLTRIM(FICHP->DIPACCAR ) } ) // DATA DE INICIO// Invoca rotina de impressão e passa como parametro a Array criadasPREEFIPA(aCampos) // PREENCHER FICHA DO PACIENTE......//--------------------------------- IMPRESSÃOFUNCTION PREEFIPA( aCampos )local x, oWord, cModelo:="C:\ODTTEMP\MODELO\FICHA.doc" //importante colocar a letra do drive senão dá errooWord := TWord():New() // inicia o objeto OLE Wordif oWord:IsVisible()oWord:Hide()endifoWord:OpenDoc( cModelo ) // abre o documento modelofor x = 1 to len( aCampos )oWord:Replace( '['+aCampos[x,1]+']' , aCampos[x,2] )nextaRqfinal := 'C:\ODTTEMP\FICHA2.doc'* oWord:preview() // visualiza o documento no preview do Word* oWord:Visualizar() // visualiza o documentooWord:PrintDoc(.t.) // imprime o documento sem apresentar na telaoWord:Save(aRqfinal) // salva o documento sem apresentar na telaoWord:end()Vander
Como voces fazem o MENU das opcoes do sistemas de vcs ?
in Programação
Posted
Eu uso C5MENU.
Pesquise por C5MENU que tem vários post´s.
Vídeo Ex. C5MENU
C5MENU