FiveTech Software tech support forums

...         AS STRING LEN  14       MEMBER nFileType        AS DWORD       MEMBER nCreatorType     AS DWORD       MEMBER nFinderFlags     AS WORD    ENDSTRUCT    if ::hFTP != nil       cBuffer = oWin32FindData:cBuffer       hFTPDir = FtpFindFirstFile( ::hFTP, cMask, @cBuffer, hb_BitOr(INTERNET_FLAG_RELOAD, ...

... MEMBER lpszUserName AS LPSTR MEMBER lpszPassword AS LPSTR MEMBER lpszCertStore AS LPSTR MEMBER lpszCertName AS LPSTR MEMBER lpszKeyFile AS LPSTR ENDSTRUCT oCredentials:dwSize = oCredentials:SizeOf() oCredentials:lpszCertStore = cCertStore oCredentials:lpszCertName = cCertName INetConnect( ..., ...

... MEMBER lpszUserName AS LPSTR MEMBER lpszPassword AS LPSTR MEMBER lpszCertStore AS LPSTR MEMBER lpszCertName AS LPSTR MEMBER lpszKeyFile AS LPSTR ENDSTRUCT @oCredentials:cBuffer

... MEMBER Centrado AS BOOL INIT .F. MEMBER DobleAncho AS BOOL INIT .F. MEMBER BorradoTexto AS BOOL INIT .F. MEMBER Negrita AS BOOL INIT .T. ENDSTRUCT memstat(atributosdetexto:cbuffer) Resultado: *************** Memory(0) ............. 2097151 Memory(1) ............. 2097151 Memory(2) ............. ...

... MEMBER Centrado AS BOOL INIT .F. MEMBER DobleAncho AS BOOL INIT .F. MEMBER BorradoTexto AS BOOL INIT .F. MEMBER Negrita AS BOOL INIT .T. ENDSTRUCT xbrowse(AtributosDeTexto) ----->muesta bien la estructura con sus miembros y los valor en .T. y .F. msginfo( AtributosDeTexto:cBuffer) ...

... MEMBER Centrado AS BOOL INIT .F. MEMBER DobleAncho AS BOOL INIT .F. MEMBER BorradoTexto AS BOOL INIT .F. MEMBER Negrita AS BOOL INIT .T. ENDSTRUCT oFiscal:ImprimirTextoFiscal( AtributosDeTexto, "HOLA" ) ----> Argument error RETU .T. Descripcion de la funcion en el OCX void ...

Mariano,

Busca la palabra ENDSTRUCT en FWH\source\classes y encontraras muchos ejemplos de uso de estructuras desde PRGs

Dov'è che sbaglio ? STRUCT TETHParameters MEMBER IPAddress As STRING LEN 16 MEMBER Port As STRING LEN 6 // STRING ?? _INT ?? ENDSTRUCT ETHParameters:=ThisStruct(TETHParameters) ECRData :=ThisStruct(TECRData) POSData :=ThisStruct(TPOSData) ETHParameters:IPAddress:="192.168.1.2" ...

... la funzione StrPtr() per passare il puntatore alla struttura: STRUCT TETHParameters MEMBER IPAddress As STRING LEN 16 MEMBER Port As STRING LEN 6 ENDSTRUCT ETHParameters:=ThisStruct(TETHParameters) ECRData:=ThisStruct(TECRData) POSData:=ThisStruct(TPOSData) ETHParameters:IPAddress:="192.168.1.2" ...

... puntatori alle strutture ------------------------------------------ STRUCT TETHParameters MEMBER IPAddress As STRING LEN 16 MEMBER Port As _INT ENDSTRUCT ETHParameters:=ThisStruct(TETHParameters) ECRData:=ThisStruct(TECRData) POSData:=ThisStruct(TPOSData) ETHParameters:IPAddress:="192.168.1.2" ...

... estructura de datos de la cual solo tengo el puntero a ella? Quisiera retornarlo como string function main() STRUCT MiEstrucuraHarbour MEMBER ... ENDSTRUCT public cTexto:=GetAdaptersInfo() MiEstrucuraHarbour:Buffer:=cTexto // Aquí cargaría mi estructura diseñada en FWH/(x)Harbour return #pragma ...

... nUnusePad AS WORD MEMBER nBitsPPel AS DWORD MEMBER nPelWidth AS DWORD MEMBER nPelHeigh AS DWORD MEMBER nDisFlags AS DWORD MEMBER nDisFreq AS DWORD ENDSTRUCT cBuffer := oDevMode:cBuffer lPosible := EnumDisplaySettings(0, 0, @cBuffer) IF lPosible oDevMode:nFields := nOr(DM_PELSWIDTH, DM_PELSHEIGHT ...

... nUnusePad AS WORD MEMBER nBitsPPel AS DWORD MEMBER nPelWidth AS DWORD MEMBER nPelHeigh AS DWORD MEMBER nDisFlags AS DWORD MEMBER nDisFreq AS DWORD ENDSTRUCT cBuffer := oDevMode:cBuffer lPosible := EnumDisplaySettings(0, 0, @cBuffer) IF lPosible oDevMode:nFields := nOr(DM_PELSWIDTH, DM_PELSHEIGHT ...

... public nAddressPort public VersionInfo public ReaderType public TrType public InventoryScanTime STRUCT nAddressPort MEMBER nValue AS BYTE ENDSTRUCT STRUCT VersionInfo MEMBER Versionnumber AS BYTE MEMBER Versionnumber1 AS BYTE ENDSTRUCT STRUCT ReaderType MEMBER typereader AS BYTE ENDSTRUCT ...

... DWORD dwReserved1 MEMBER cFileName AS STRING LEN 260 // TCHAR cFileName[MAX_PATH] MEMBER cAltName AS STRING LEN 14 // TCHAR cAlternateFileName[14] ENDSTRUCT cBuffer :=oFTPData:cBuffer FtpFindFirstFile( hConnect, cFTPFldr+'/*.dat', @cBuffer, 0, 0 ) oFTPData:cBuffer :=cBuffer ? oFTPData:cFileName,; ...