asapltda

As I simulate the requirement: 1. I have the html unit that receives text parameters and returns html 2. I add the html to the UnimList 1 ---------------------------------------------------------- // RETORNA CADENA EN FORMATO HTML unit HTML_COLOR; interface uses SysUtils ; var w_retorno : boolean; function Get_Html(p_string, p_color:string; P_size:integer):string; // function Get_Html(P_title; p_valor, p_color:string; P_size:integer):string; implementation // http://www.w3schools.com/html/html_colornames.asp // RED , GREEN, AQUA, BLACK, BLUE, YELLOW , ORANGE, ORANGERED , MAGENTA..... // w_s1:= HTML_COLOR.Get_Html (ClientDataSet1.FieldByName('NIT').AsString, 'blue', 2) ; // w_s2:= HTML_COLOR.Get_Html (ClientDataSet1.FieldByName('NOMBRE').AsString , 'black', 3) ; // w_s3T:= HTML_COLOR.Get_Html ('Direccion:', 'blue', 1) ; function Get_Html(p_string, p_color:string; P_size:integer):string; const K_negrita = '<b> %s </b>' ; K_FONT1 = '<font size= "%d" color = " %s" >' ; K_FONT2 = '</font>'; // <font size="6"> This is some text!</font> var w_html :string; begin // NEGRITA if uppercase(p_color) = 'NEGRITAS' then begin w_html := K_negrita ; w_html := format(w_html, [ p_STRING]); result:= w_html ; exit; end; // COLORES HTML w_html := K_FONT1 ; w_html := format(w_html, [P_SIZE, p_color ]); result:= w_html + p_string + K_FONT2 ; end; end. --------------------------------------- 2-----add the html to the UnimList----------- // pedidos = DATASET while not PEDIDOS.Eof DO begin W_STR := 'Pedido ' + PEDIDOS.FieldByName('NOPEDIDO').AsString ; // + '<br>'; w_nopedido := HTML_COLOR.Get_Html ( W_STR, 'BLACK', 2) ; W_STR := ' Ped.Cliente:' + PEDIDOS.FieldByName('PEDIDOCLIENTE').AsString + '<br>'; W_PEDIDOCLIENTE := HTML_COLOR.Get_Html ( W_STR, 'red', 4) ; W_STR := 'Despachar A:' + PEDIDOS.FieldByName('CLIENTESHP').AsString ; w_clienteshp := HTML_COLOR.Get_Html ( W_STR, 'BLACK', 2) ; W_STR := PEDIDOS.FieldByName('DCLIENTESHP').AsString ; W_DCLIENTESHP := HTML_COLOR.Get_Html ( W_STR, 'blue', 2) ; UnimList1.Items.Add(W_STR); PEDIDOS.Next; end; PEDIDOS.Close;

Hello, can you post an example in delphi + unigui Thank you

+1 What is TPL? Thank you

Send file to Client ------------------------ procedure TFCONSULTAMOVINVENTARIOS.BTN_DownLoadXLSClick(Sender: TObject); var Uid: TGuid; Result: HResult; W_recurso :string; w_FileName :string; FilesFolderPath:string; TempFolderPath :string; ExtFullPath :string; w_Ruta :string; ExcelName :string; begin ExtFullPath := UniServerModule.ExtFullPath ; // CREATE GUID PARA MANEJO DE ARCHIVO DE DATOS Result := CreateGuid(Uid); CreateGuid(Uid); if Result = 1 then w_FileName:= GuidToString(Uid) ; // ARMAR NOMBRE DE ARCHIVO PARA ENVIA AL FOLDER TEMPORAL // W_recurso := RECURSO.Text; w_FileName:= w_FileName + '.xls' ; w_Ruta := UniServerModule.TempFolderPath + w_FileName ; // CONVERTIR ARCHIVO A EXCEL , SALVARLO TEMPORALMENTE Y CREAR LINK DE DESCARGA uNativeXLSExport.DataSetToXLS(INMOV, w_Ruta ); UniSession.SendFile(w_Ruta , 'MovInventory.xls'); LnkDowlaod.Caption:='<a href="'+ w_Ruta +'" target=new>Click here to download: ( '+' MovInventory.xls'+')</a>'; LnkDowlaod.SetFocus; end;

Unit CONFIGURACIONPARMS; interface var G_DBSERVER :string; G_DBNAME :string; G_DATABASE :string; G_USUARIODB :string; // USUARIO COMUN TOMADO DE LA CONFIGURACION G_PASSWDB :string; // tomado de la configuracion G_Usuario :String; g_PassW :string; G_ROLE :string; G_Port :Integer ; g_ExtRoot :string; G_CacheFolder :string; G_Title :string; g_LogoCompania :string; g_LogoLogin :string; g_Theme :string; {} P_USUARIO :STRING; O_CONO :string; O_CLIENTE :string; O_CLIENTESHP :string; Procedure SET_INICIAR_VALORES; implementation Procedure SET_INICIAR_VALORES; Var W_Null:Variant; BEGIN //P_RECURSO :=''; End; END. ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ ARCHIVO DE CONFIGURACION Configuracion.cfg [user] USUARIO=SERVINETWEB PASSW=SERVINETWEB ROLE=USUARIOS [server] SERVER=192.168.1.115 <-- NO SE USA [Database] DBSERVER=192.168.1.115 DBNAME=127.0.0.1:E:\__DISCO C TOSHIBA\SERVINET_XE10_BERLIN\SERVINETDB-2017.FDB [Logos] LOGO_LOGIN=E:\__DISCO C TOSHIBA\SERVINETWEB\apix_logo Compania.jpg LOGO_COMPANIA=E:\__DISCO C TOSHIBA\SERVINETWEB\apix_logo Compania.jpg LOGO_LOGIN_CDLG=C:\SERVINETWEB\LOGO_CDLG.JPG LOGO_COMPANIA_CDLG =C:\SERVINETWEB\LOGO_CDLG3.JPG [Logos Otros] <-- NO SE USA XLOGO_COMPANIA=C:\SERVINETWEB\Logo_Organizacion_hercules_Compania.jpg XLOGO_LOGIN=E:\__DISCO C TOSHIBA\SERVINETWEB\Logo_Organizacion_hercules_Compania_LOGIN.jpg LOGO_COMPANIA_apix=C:\SERVINETWEB\apix_logo Compania.jpg LOGO_LOGIN=C:\SERVINETWEB\apix_logo.jpg LOGO_COMPANIA_INTERLLANTAS=logoInterllantas.png LOGO_LOGIN_INTERLLANTAS =logoInterllantas.png [Licencias] LICENCIA1=XXXXXXX LICENCIA2=YYYYYY [serverModule] Port=8077 ExtRootX=C:\SERVINET2014 X2\DELPHIWEB\ext-4.2.2.1144\ CacheFolder=\cache ExtRoot=C:\Program Files (x86)\FMSoft\Framework\uniGUI\ext-4.2.5.1763 Title=SERVINETWEB@LOGISTICASOFT [MAINMODULE] BackGroundPicture=Tortas-de-cumpleanos-vectorizadas.jpg Theme=default Theme_blue=blue Theme_gray_gray Theme_neptune=neptune Theme_access=access IniFile.ReadString('ServerModule' , 'ExtRoot', ' ') ; **** FIN ARCHIVO DE CONFIGURACION ******** EN SERVER MODULE implementation {$R *.dfm} uses UniGUIVars ,inifiles , CONFIGURACIONPARMS; // <-------- incluye unidad procedure TUniServerModule.UniGUIServerModuleCreate(Sender: TObject); begin LEER_CONFIGURACION; end; procedure TUniServerModule.LEER_CONFIGURACION; var IniFile : TIniFile; w_F :TextFile; W_CONFIGURACION:string ; W_DIR :string; W_String:string; W_ERROR:STRING; begin FormatSettings.shortdateformat := 'yyyy/MM/dd'; //2008/04/16 FormatSettings.ShortTimeFormat := 'HH:MM'; FormatSettings.LongTimeFormat := 'HH:MM:SS.zzzz'; FormatSettings.DecimalSeparator := '.'; FormatSettings.ThousandSeparator := ','; FormatSettings.dateSeparator := '-'; FormatSettings.timeSeparator := ':'; W_DIR := ExtractFilePath(UniFullPath); W_DIR := UniServerModule.StartPath; W_CONFIGURACION := W_DIR + 'Configuracion.cfg' ; // <------------------------leer configuracion externa TRY IniFile := TIniFile.Create( W_CONFIGURACION ); EXCEPT on E : Exception do begin W_ERROR:= E.Message; end; END; // LEER PARAMETROS CONFIGURACIONPARMS.G_DBSERVER := IniFile.ReadString('Database' , 'DBSERVER', ' ') ; CONFIGURACIONPARMS.G_DBNAME := IniFile.ReadString('Database' , 'DBNAME', ' ') ; CONFIGURACIONPARMS.G_DATABASE := CONFIGURACIONPARMS.G_DBNAME; CONFIGURACIONPARMS.g_USUARIODB := IniFile.ReadString('User' , 'USUARIO', ' ') ; CONFIGURACIONPARMS.g_PASSWDB := IniFile.ReadString('User' , 'PASSW', ' ') ; CONFIGURACIONPARMS.g_ROLE := IniFile.ReadString('User' , 'ROLE', ' ') ; CONFIGURACIONPARMS.g_LogoCompania := IniFile.ReadString('LOGOS' , 'LOGO_COMPANIA', ' ') ; CONFIGURACIONPARMS.g_LogoLogin := IniFile.ReadString('LOGOS' , 'LOGO_LOGIN', ' ') ; CONFIGURACIONPARMS.g_port := StrToInt(IniFile.ReadString('ServerModule' , 'Port', ' ')) ; CONFIGURACIONPARMS.G_ExtRoot := IniFile.ReadString('ServerModule' , 'ExtRoot', ' ') ; CONFIGURACIONPARMS.G_CacheFolder := IniFile.ReadString('ServerModule' , 'CacheFolder', ' ') ; CONFIGURACIONPARMS.G_TITLE := IniFile.ReadString('ServerModule' , 'Title', ' ') ; CONFIGURACIONPARMS.G_Theme := IniFile.ReadString('ServerModule' , 'g_Theme', ' ') ; // SET PARAMETROS UniServerModule.title := G_TITLE; UniServerModule.title := CONFIGURACIONPARMS.G_TITLE ; UniServerModule.Port := G_PORT; end;

Hi, can you give an example of how to use this component (UniPDFFrame) ? Thank you

review this link

use mainmodule

Hola Mike, No tengo claro el tema, podria en aras de ayudarnos todos: 1. los datamodulos existen en forma nativa para unigui , si no se recomienda su uso porque existen? no deberia cambiarse? 2. si solo se crean una sola vez por sesion la carga inicial podria ser lenta (que es lento) y consumen mucha memoria (cuanto es mucho) y a partir de cuantos usuarios afectaria el sistema 10,100,1000..nn gracias mike

Thanks for your Answer, Could there be an official example of how it is done?

+1 60 YEARS OLD

Hello, unigui datamodules are created automatically for each session? or the datamodules must be created manually in the MainModule unit? Tks

Hello, some of you could indicate the advantages of using unigui movile version 6.5 - The applications with the previous version are compatible with version 6.5? - Other advantages or differences that we can have Thank you

pdf vs Live video conference I prefer the pdf since I can see them many times, besides those who do not speak English we can translate it and understand all the material tks

Hello, for clarification is it the same to have non-visual components created in design or created in execution? tks Hello, for clarification is it the same to have non-visual components created in design or created in execution?