Jump to content
Fivewin Brasil

VLNUNES

Membros
  • Posts

    377
  • Joined

  • Last visited

  • Days Won

    2

Posts posted by VLNUNES

  1. 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

     

  2. Tenho um calendário bem simples, que talvez sirva de base.

    TELA.jpg

    No PRG principal

    //---------------- INICIO DO CALENDÁRIO
    dDia := 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 TELA
    DEFINE 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)=1
    id1 := 1
    elseif Dow(dDia)=2
    id1 := 2
    elseif Dow(dDia)=3
    id1 := 3
    elseif Dow(dDia)=4
    id1 := 4
    elseif Dow(dDia)=5
    id1 := 5
    elseif Dow(dDia)=6
    id1 := 6
    elseif Dow(dDia)=7
    id1 := 7
    endif
    REDEFINE 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 > 28
    REDEFINE SAY oSAYCAL29 prompt "29" ID id1+28 of oWnd1 FONT oFontCALE1 COLOR RGB (0,0,0),RGB (255,255,255)
    endif
    if cDia > 29
    REDEFINE SAY oSAYCAL30 prompt "30" ID id1+29 of oWnd1 FONT oFontCALE1 COLOR RGB (0,0,0),RGB (255,255,255)
    endif
    if cDia > 30
    REDEFINE SAY oSAYCAL31 prompt "31" ID id1+30 of oWnd1 FONT oFontCALE1 COLOR RGB (0,0,0),RGB (255,255,255)
    endif
    ACTIVATE 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 EXTENSSO
    FUNCTION DATAEXT(DIIA)
    if Month(DIIA)=1
    mesa:="janeiro"
    elseif Month(Date())=2
    mesa:="fevereiro"
    elseif Month(Date())=3
    mesa:="março"
    elseif Month(Date())=4
    mesa:="abril"
    elseif Month(Date())=5
    mesa:="maio"
    elseif Month(Date())=6
    mesa:="junho"
    elseif Month(Date())=7
    mesa:="julho"
    elseif Month(Date())=8
    mesa:="agosto"
    elseif Month(Date())=9
    mesa:="setembro"
    elseif Month(Date())=10
    mesa:="outubro"
    elseif Month(Date())=11
    mesa:="novembro"
    elseif Month(Date())=12
    mesa:="dezembro"
    endif
    RETURN ( MESA )
    //------------------- VERIFICA O ULTIMO DIA DO MES
    FUNCTION 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)==12
    dData2:= CTOD( "01/01/"+STRZERO(nAno+1,4) )
    ELSE
    dData2:= CTOD( "01/"+STRZERO(nMes+1,2)+"/"+STRZERO(nAno,4) )
    ENDIF
    cDia :=dData2-dData1
    RETURN( CTOD(StrZero(cDia,2)+SUBSTR(DTOC(dData1),3)) ) // Eroni
    RC do calendário
    CALENDA DIALOG 382, 15, 200, 193
    STYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE
    FONT 8, "MS Sans Serif"
    {
    LTEXT "39", 39, 5, 21, 190, 168, WS_BORDER | WS_GROUP
    CTEXT "DOM", 40, 8, 23, 22, 8
    CTEXT "SEG", 41, 35, 23, 22, 8
    CTEXT "TER", 42, 62, 23, 22, 8
    CTEXT "QUA", 43, 89, 23, 22, 8
    CTEXT "QUI", 44, 116, 23, 22, 8
    CTEXT "SEX", 45, 143, 23, 22, 8
    CTEXT "SAB", 46, 170, 23, 22, 8
    CTEXT "38", 38, 5, 3, 190, 17
    CTEXT "", 1, 8, 34, 22, 22
    CTEXT "", 2, 35, 34, 22, 22
    CTEXT "", 3, 62, 34, 22, 22
    CTEXT "", 4, 89, 34, 22, 22
    CTEXT "", 5, 116, 34, 22, 22
    CTEXT "", 6, 143, 34, 22, 22
    CTEXT "", 7, 170, 34, 22, 22
    CTEXT "", 8, 8, 60, 22, 22
    CTEXT "", 9, 35, 60, 22, 22
    CTEXT "", 10, 62, 60, 22, 22
    CTEXT "", 11, 89, 60, 22, 22
    CTEXT "", 12, 116, 60, 22, 22
    CTEXT "", 13, 143, 60, 22, 22
    CTEXT "", 14, 170, 60, 22, 22
    CTEXT "", 15, 8, 86, 22, 22
    CTEXT "", 16, 35, 86, 22, 22
    CTEXT "", 17, 62, 86, 22, 22
    CTEXT "", 18, 89, 86, 22, 22
    CTEXT "", 19, 116, 86, 22, 22
    CTEXT "", 20, 143, 86, 22, 22
    CTEXT "", 21, 170, 86, 22, 22
    CTEXT "", 22, 8, 112, 22, 22
    CTEXT "", 23, 35, 112, 22, 22
    CTEXT "", 24, 62, 112, 22, 22
    CTEXT "", 25, 89, 112, 22, 22
    CTEXT "", 26, 116, 112, 22, 22
    CTEXT "", 27, 143, 112, 22, 22
    CTEXT "", 28, 170, 112, 22, 22
    CTEXT "", 29, 8, 138, 22, 22
    CTEXT "", 30, 35, 138, 22, 22
    CTEXT "", 31, 62, 138, 22, 22
    CTEXT "", 32, 89, 138, 22, 22
    CTEXT "", 33, 116, 138, 22, 22
    CTEXT "", 34, 143, 138, 22, 22
    CTEXT "", 35, 170, 138, 22, 22
    CTEXT "", 36, 8, 164, 22, 22
    CTEXT "", 37, 35, 164, 22, 22
    }
  3. 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 ESTOQU


    IF mgenerF = "* TODOS *"

    SET FILTER TO

    ELSE

    SET FILTER TO TPMERCA = mgenerF

    ENDIF


    DBGOTOP()

    LIACER224 :Refresh() // Estabiliza o Browse/Listbox

    xSetFocus( LIACER224 )


    RETURN .T.

    //-----------------------------------------


    Obrigado;

    Vander

  4. 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>.
     
  5. 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.01

    Neste caso pegar o 21.00 e 25.13


    De 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

  6. 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 IrfanView
    Author: Irfan Skiljan
    E-Mail: irfanview@gmx.net
    -------------------------------------------------------------------------------
    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 X
    Important 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 Windows
    Example 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\*.gif
    i_view32.exe c:\*.jpg /resample=(500,300) /aspectratio /convert=d:\temp\*.png
    i_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\*.jpg
    i_view32.exe /slideshow=c:\images\test*.jpg
    Example 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'
    or
    i_view32.exe c:\test /thumbs
    => display thumbnails from directory 'c:\test'
    Example for close:
    i_view32.exe /killmesoftly
    => close IrfanView and terminate all instances
    Example 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=300
    Example for print:
    i_view32.exe c:\test.jpg /print
    => Open 'c:\test.jpg', print the image to default printer and close IrfanView
    i_view32.exe c:\test.jpg /print="Printer Name"
    => Open 'c:\test.jpg', print the image to specific printer and close IrfanView
    i_view32.exe c:\*.jpg /print
    => Print all JPGs from "C:\" and close IrfanView
    Example 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, proportional
    i_view32.exe c:\test.jpg /resize=(300,0) /aspectratio
    => Open 'c:\test.jpg' and resize: width=300, height=proportinal
    i_view32.exe c:\test.jpg /resize=(300,0)
    => Open 'c:\test.jpg' and resize: width=300, height=original
    i_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 screen
    i_view32.exe /capture=1
    => Capture the foreground window
    i_view32.exe /capture=2
    => Capture the client area of the foreground window
    Advanced examples:
    i_view32.exe /capture=1 /convert=c:\test.jpg
    Capture foreground window and save result as file.
    i_view32.exe /capture=1 /convert=c:\capture_$U(%d%m%Y_%H%M%S).jpg
    Capture foreground window and save result as file; the file name contains time stamp.
    Example for ini:
    i_view32.exe /ini
    i_view32.exe c:\test.jpg /ini
    i_view32.exe c:\test.jpg /ini="c:\temp\"
    Example for clipboard paste:
    i_view32.exe /clippaste
    i_view32.exe /clippaste /convert=c:\test.gif
    Example for clipboard copy:
    i_view32.exe c:\test.jpg /clipcopy
    i_view32.exe c:\test.jpg /clipcopy /killmesoftly
    Example for /invert:
    i_view32.exe c:\test.jpg /invert
    Example for /dpi:
    i_view32.exe c:\test.jpg /dpi=(72,72)
    Example for /scan:
    i_view32.exe /scan
    i_view32.exe /scanhidden
    i_view32.exe /scanhidden /dpi=(150,150)
    i_view32.exe /scan /convert=c:\test.gif
    i_view32.exe /scanhidden /convert=c:\test.gif
    i_view32.exe /print /scan
    Example for /batchscan=(options):
    options = all 8 options from the batch scan dialog:
    filename, index, increment, digits, skip, dest-folder, save-extension, multi-tif
    i_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) /scanhidden
    Example for /bpp:
    Example: i_view32.exe c:\test.jpg /bpp=8
    Supported BPP-values: 1, 4, 8 and 24 (decrease/increase color depth)
    => Open 'c:\test.jpg' and reduce to 256 colors
    Example for /filepattern:
    i_view32.exe c:\images\ /thumbs /filepattern="*.jpg"
    => Go to folder "c:\images\" and show JPG thumbnails only
    i_view32.exe c:\images\ /thumbs /filepattern="123*.jpg"
    => Go to folder "c:\images\" and show JPG with names "123*" as thumbnails
    Example for /sharpen:
    i_view32.exe c:\test.jpg /sharpen=33
    Examples for /hide:
    Values (can be combined (add values)):
    Toolbar 1
    Status bar 2
    Menu bar 4
    Caption 8
    i_view32.exe c:\test.jpg /hide=1
    => Open 'c:\test.jpg', hide toolbar only
    i_view32.exe c:\test.jpg /hide=3
    => Open 'c:\test.jpg', hide toolbar and status bar
    i_view32.exe c:\test.jpg /hide=12
    => Open 'c:\test.jpg', hide caption and menu bar
    i_view32.exe c:\test.jpg /hide=15
    => Open 'c:\test.jpg', hide all
    Examples for /info:
    i_view32.exe c:\test.jpg /info=c:\test.txt
    i_view32.exe c:\*.jpg /info=c:\jpgs.txt
    Example 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 files
    Example 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 = 75
    Quality 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 = Fax4
    Compressions: 0 = None, 1 = LZW, 2 = Packbits, 3 = Fax3, 4 = Fax4, 5 = Huffman,
    6 = JPG, 7 = ZIP
    Example 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 JPGs
    Example for /monitor:
    MySlideshow.exe /monitor=2
    => Start standalone slideshow on monitor 2
  7. Eu uso em meus sistemas para editar fotos (dá pra usar linha de comando).

    Instalei no meu PC e depois copio a pasta "IrfanView" completa e incluo na instalação do meu sistema e funciona sem ter de instalar, bastando copiar a pasta de um PC que já tenha a instalação e pronto.

  8. Só completando

    01 - Herberson Carlos Gontijo (Hergon) - Belo Horizonte / MG
    02 - Claudia M. R. Glória Gontijo (Cacau7) - Belo Horizonte / MG
    03 - AnaCatacombs - Cianorte / PR
    04 - Joaosolution - Contagem / MG
    05 - Nárlem - Belo Horizonte / MG
    06 - Vander Lúcio Nunes (VLNunes) - João Monlevade / MG
    07 - Gilmer - Sorocaba / SP
    08 - Evandro G. de Paula - Curvelo / MG
  9. 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

  10. 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 FICHP
    ZAP
    APPEND BLAN
    REPLACE COPACCAR WITH STRZERO(PACIE->CODIGOPA,5) // CÓDIGO
    REPLACE NOPACCAR WITH ALLTRIM(PACIE->NOMEDOPA) // NOME
    REPLACE DNPACCAR WITH DTOC(PACIE->DTANASPA) // DATA NASCIMENTO
    REPLACE MRPACCAR WITH ALLTRIM(PACIE->MEDICOPA) // MÉDICO
    REPLACE DIPACCAR WITH DTOC(PACIE->DTAINCPA) // DATA INICIO
    aCampos := {}
    //------------------- DADOS DO PACIENTE
    aadd( aCampos, { 'codpaci',ALLTRIM(FICHP->COPACCAR ) } ) // CÓD. PACIENTE
    aadd( aCampos, { 'nompaci',ALLTRIM(FICHP->NOPACCAR ) } ) // NOME PACIENTE
    aadd( aCampos, { 'dtnpaci',ALLTRIM(FICHP->DNPACCAR ) } ) // DT NASCI
    aadd( aCampos, { 'medresp',ALLTRIM(FICHP->MRPACCAR ) } ) // MÉD. RESPON
    aadd( aCampos, { 'dtintra',ALLTRIM(FICHP->DIPACCAR ) } ) // DATA DE INICIO
    // Invoca rotina de impressão e passa como parametro a Array criadas
    PREEFIPA(aCampos) // PREENCHER FICHA DO PACIENTE
    ...
    ...
    //--------------------------------- IMPRESSÃO
    FUNCTION PREEFIPA( aCampos )
    local x, oWord, cModelo:="C:\ODTTEMP\MODELO\FICHA.doc" //importante colocar a letra do drive senão dá erro
    oWord := TWord():New() // inicia o objeto OLE Word
    if oWord:IsVisible()
    oWord:Hide()
    endif
    oWord:OpenDoc( cModelo ) // abre o documento modelo
    for x = 1 to len( aCampos )
    oWord:Replace( '['+aCampos[x,1]+']' , aCampos[x,2] )
    next
    aRqfinal := 'C:\ODTTEMP\FICHA2.doc'
    * oWord:preview() // visualiza o documento no preview do Word
    * oWord:Visualizar() // visualiza o documento
    oWord:PrintDoc(.t.) // imprime o documento sem apresentar na tela
    oWord:Save(aRqfinal) // salva o documento sem apresentar na tela
    oWord:end()
    Vander


×
×
  • Create New...