PC Toledo

Algo assim?


#include "fivewin.ch"

FUNCTION Main()

LOCAL oHTTP := HTTPRequest():New()
LOCAL cURL := "http://your-server.com/upload" // Replace with your target URL
LOCAL cBoundary := "----WebKitFormBoundary7MA4YWxkTrZu0gW" // A unique boundary string

// Set the Content-Type header for ...

... Manage extensions".
Find "Recent Topics" in the list of Disabled Extensions and click "Enable".
Configure the Extension:
Once enabled, a new section for the extension should appear in the ACP (e.g., under "Extensions" or "General").
Here you can customize various settings:
Number of ...

... FILE(cCaminho+"\"+cNomeArquivo)
MENSAGEM("Atenção, arquivo cClassTrib.xlxs NÃO encontrado da pasta "+cCaminho,8)
retu
end

oExcel := TOleAuto():New( "Excel.Application" )
oExcel:WorkBooks:Open( cCaminho+"\"+cNomeArquivo )
oExcel:Visible := .F.
oSheet := oExcel:Get( "ActiveSheet" )
oSheet:Cells ...

... usava esta rotina , e tempos depois nao condigo mais.
cUrl := "ftp://" + cUser + ":" + cPassword + "@" + cServer
? "cUrl",cUrl
oUrl := tUrl():New( cUrl ) //// AQUI O SISTEMA TRAVA
? "tUrl..."
oFtp := TIPClientFtp():New( oUrl ,.T. )
? "TIPClientFtp..."

Minha função de download de arquivos ...

Olá Fernando,

Estou usando gtWvg. Crio a janela com WvgCrt() defino alguns parametros:

oCrt := WvgCrt():New( , , { 0, 0 }, { 24, 79 }, , .T. )
oCrt:lModal := .T.
oCrt:resizable := .F.
oCrt:closable := .F.
oCrt:title := "SISTEMA"
oCrt:icon := ICONE_SISTEMA
oCrt:Create()

Não achei nenhum ...

2025-09-09 13:50 UTC+0200 Przemyslaw Czerpak (druzus/at/poczta.onet.pl)
* include/hbdefs.h
+ added new types HB_WCHAR16 and HB_WCHAR32, existing type HB_WCHAR
is mapped to HB_WCHAR16 (just like before)

* include/hbapicdp.h
* src/harbour.def
* src/rtl/cdpapi.c
+ added new C functions for ...

... é criado por IA
Aposto que a Microsoft nem sabe o que tem nesta atualização...
https://www.pcworld.com/article/2768784/microsoft-ceo-claims-30-of-new-code-is-written-by-ai.html

https://www.pcworld.com/wp-content/uploads/2025/06/Person-using-Windows-11-laptop-on-lap.jpg?resize=1024%2C576&quality ...

... a geração do BMP.


/* and now much faster version */
cBitMap := hb_zebra_getbitmap( hZebra, nAlign, .T./*lBottomUp>*/, @nWidth, @nHeight, nLineWidth, nLineHeight, nX )
pBMP := hb_bmp_frombitmap( cBitMap, nAlign, nWidth, nHeight, nDepth, /*nDPI*/, /*aPalette*/, /*@nError*/ )
cFile := Lower ...

... hbbmp/hbbmp.hbp
+ contrib/hbbmp/hbbmp.hbx
+ contrib/hbbmp/readme.txt
+ contrib/hbbmp/tests/hbbmptst.prg
+ contrib/hbbmp/tests/hbmk.hbm
+ added new BMP image library for Harbour
; HBBMP is small library for Harbour dedicated to create and modify
BMP images. It has not any 3rd party libs ...

... 2025-08-22 12:00 UTC+0200 Przemyslaw Czerpak (druzus/at/poczta.onet.pl)
* contrib/hbzebra/coredraw.c
* contrib/hbzebra/hbzebra.hbx
+ added new PRG function:
hb_zebra_getsize( <hZebra>, @<nWidth>, @<nHeight> ) -> <nError>
it calculates size in points of the created barcode and returns 0 on ...

... de preguiçoso.... kkkk

Como faria isso dar certo sem ... ou em xharbour ?


#include "hbclass.ch"

PROCEDURE Main

LOCAL oItem

oItem := Test():New()
oItem:One()
oItem:One( Nil )
oItem:Two()
oItem:Two( Nil )

Inkey(0)


RETURN

CREATE CLASS Test
METHOD One( ... ) INLINE ::Two ...

/*
h_HmgApp
*/

#include "hbclass.ch"

MEMVAR _HMG_SYSDATA

THREAD STATIC oApp

INIT PROCEDURE Init_oApp

oApp := _hmg_AppClass():New()

RETURN

CREATE CLASS _Hmg_AppClass

VAR aList INIT {}
METHOD AddItem( xValue )
METHOD GetItemFromName( xValue )
METHOD GetItemFromHandle( xValue )
METHOD ...

O erro é este:


SYSTEM ERROR
Error BASE/1100 Argument error: TRIM
Called from RTRIM(0)
Called from TDIALOG:NEW(0)
Called from BROWSE(0)
Called from CMDBROWSE(1727)
Called from PUTILDBASE(70)
Called from DO(0)
Called from DOPRG(171)
Called from (b)RUNMODULE(113)
(1) = Tipo: N Valor: 2 ...

... name. The private variable is
declared with the MEMVAR statement:

FUNCTION Example
MEMVAR amount, address
PRIVATE amount := 100
USE Customer NEW
//
? amount // Refers to amount private variable
? Customer->Amount // Refers to Amount field variable
//
RETURN NIL

Fonte: Norton Guides ...

Boa tarde , preciso de uma ajuda , usava esta rotina , e tempos depois nao condigo mais.

cUrl := "ftp://" + cUser + ":" + cPassword + "@" + cServer


? "cUrl",cUrl

oUrl := tUrl():New( cUrl ) //// AQUI O SISTEMA TRAVA

? "tUrl..."

oFtp := TIPClientFtp():New( oUrl ,.T. )

? "TIPClientFtp..."