Jump to content

andyhill

uniGUI Subscriber
 View Profile  See their activity

  • Posts

    1268

  • Joined

  • Last visited

  • Days Won

    6

 Content Type 

Everything posted by andyhill

  1. andyhill
    I have a procedure that within the code while loop (while not Query.Eof do begin etc.) I want to Execute 2 Ajax Events (repeated over and over on each record):- ////////////////////////////////////////////////////////////// ////////////////////////////////////////////////////////////// ////////////////////////////////////////////////////////////// WaitLoopFlag:= True; UniSession.AddJS('ajaxRequest(fMain.HtmlMemo, ''_sample_'', []);'); // On Completion WaitLoopFlag Is Set To False while WaitLoopFlag = True do begin Sleep(5000); end; ////////////////////////////////////////////////////////////// ////////////////////////////////////////////////////////////// ////////////////////////////////////////////////////////////// WaitLoopFlag:= True; UniSession.AddJS('ajaxRequest(fMain.HtmlMemo, ''_process_'', []);'); // On Completion WaitLoopFlag Is Set To False while WaitLoopFlag = True do begin Sleep(5000); end; My problem is the Ajax Events are never fired when called within a loop, can anyone please advise how to resolve - thanks in advance
  2. andyhill
    Fantastic - Thank You Again
  3. andyhill
    Thank you again Sherzod. Moving forward, is there a way to execute that function elsewhere in my form other than the input onclick event buried in the html code. For example I could place a button on the ToolBar, then on that button's click event execute that javascript function ?
  4. andyhill
    Sorry, I over looked that extra piece of info "top." can you please explain why I need that - thanks
  5. andyhill
    No, not here, modified project attached - plus EXE Project1-Modified.zip
  6. andyhill
    ' printPage = function(id) '+ ' { '+ ' alert(''Here''); '+ ' var html = "<html>"; '+ Alert Never Fires ?
  7. andyhill
    7-0-0 1531 Does not work ? procedure TMainForm.UniFormCreate(Sender: TObject); var s: String; begin ////////////////////////////////////////////////////////////////////////////// HtmlMemo.ClientEvents.ExtEvents.Clear; s:= 'afterrender=function afterrender(sender, eOpts) '+ '{ '+ ' printPage = function(id) '+ ' { '+ ' var html = "<html>"; '+ ' html += sender.getDoc().getElementById(id).innerHTML; '+ ' html += "</html>"; '+ ' var printWin = window.open('''', '''', ''left=0, top=0, width=1, height=1, toolbar=0, scrollbars=0, status=0''); '+ ' printWin.document.write(html); '+ ' printWin.document.close(); '+ ' printWin.focus(); '+ ' printWin.print(); '+ ' printWin.close(); '+ ' } '+ '} '; HtmlMemo.ClientEvents.ExtEvents.Add(s); ////////////////////////////////////////////////////////////////////////////// HtmlMemo.Lines.Clear; s:= '<div id="block"> '+ ' What is Lorem Ipsum?<br><br>'+ ' Lorem Ipsum is simply dummy text of the printing and typesetting industry. '+ ' Lorem Ipsum has been the industry''s standard dummy text ever since the 1500s, '+ ' when an unknown printer took a galley of type and scrambled it to make a type specimen book. '+ ' It has survived not only five centuries, but also the leap into electronic typesetting, '+ ' remaining essentially unchanged. It was popularised in the 1960s with the release of Letraset '+ ' sheets containing Lorem Ipsum passages, and more recently with desktop publishing software like '+ ' Aldus PageMaker including versions of Lorem Ipsum.'; HtmlMemo.Lines.Add(s); ////////////////////////////////////////////////////////////////////////////// s:= '</div> '+ '<br> '+ '<input type="button" value="Print" onclick="printPage(''block'');"></input> '; HtmlMemo.Lines.Add(s); end;
  8. andyhill
    Thank you
  9. andyhill
    Are you still going to try ?
  10. andyhill
    Please advise
  11. andyhill
    Whats happening Sherzod, I gave you the test project ?
  12. andyhill
    Project1.zip
  13. andyhill
    I am trying to get this Print Code to work inside a UniGui HtmlMemo - can anyone please advise why this basic code does not work with UniGui ? HtmlMemo.Lines.Clear; ///////////////////////////////////////////////////////////////////////////////// s:= ' <script> '+ ' function printPage(id) '+ ' { '+ ' var html="<html>"; '+ ' html+= document.getElementById(id).innerHTML; '+ ' html+="</html>"; '+ ' var printWin = window.open('', '', ''left=0, top=0, width=1, height=1, toolbar=0, scrollbars=0, status=0''); '+ ' printWin.document.write(html); '+ ' printWin.document.close(); '+ ' printWin.focus(); '+ ' printWin.print(); '+ ' printWin.close(); '+ ' } '+ ' </script> '+ ' <div id="block"> '; HtmlMemo.Lines.Add(s); ///////////////////////////////////////////////////////////////////////////////// add additional html code here ///////////////////////////////////////////////////////////////////////////////// s:= ' </div> '+ ' <br> '+ ' <input type="button" value="Print" onclick="printPage(''block'');"></input> '; HtmlMemo.Lines.Add(s);
  14. andyhill
    When one assigns the Port to the Server (UniServerModule.Port:= HttpPort and UniServerModule.SSL.SSLPort:= SslPort) UniGUI binds those ports to all NIC assigned IP's - this is not good. According to the Indy People we need 2 Bindings, one for port 80 and one for port 443. The workaround was to set UniServerModule.Port:= 0 (kill global binding), UniServerModule.SSL.SSLPort:=0 (kill global binding) and add Binding Records, then from here assign the desired IP's and Port's. UniServerModule.Bindings.Items[0].IP:= BindToIpStr; UniServerModule.Bindings.Items[0].Port:= HttpPort; UniServerModule.Bindings.Items[1].IP:= BindToIpStr; UniServerModule.Bindings.Items[1].Port:= SslPort; Now the downfall of having UniServerModule.Port:= 0 (kill global binding) is that the only way to access the site now is via https which Indy navigates automatically, in principle this is not an issue if the user knows he must use https, if he dose not know then the http protocol will fail and he will not arrive at your site. I have begged Farshad many many times to NOT GLOBALLY BIND ALL IP's. Farshad, please address this problem -or- provide a work around where one can run multiple StandAlone WebServers on the same PC bound across different IP's.
  15. andyhill
    Do you have an English narrative ?
  16. andyhill
    Thank You Sherzod. Feed back:- First Option (StrToJS) only works in an empty paragraph Second Option ([]) inserts between characters and empty paragraphs Would you please explain why we have to deal with inline differently ?
  17. andyhill
    HtmlMemo.zip
  18. andyhill
    How many times must I ask, if it is a bug then acknowledge it please along with fix ETA, if it is my code then please explain why it works in browsers but not in your HtmlMemo ?
  19. andyhill
    Please advise, script code in file attached - please run in browser. Why does the same script not run in HtmlMemo ? InlineData.html
  20. andyhill
    The actual data is wrapped by double quotes, if you take the complete tag string, turn it into a html file and execute it by the browser it all works.
  21. andyhill
    Sherzod, Have you run this code and got errors like me, if so how do we fix ?
  22. andyhill
    Run this code:- InlineData:= '<img id="img1" src="data:image/jpeg; charset=utf-8; base64, /9j/4AAQSkZJRgABAQEBLAEsAAD/2wBDAAYEBQYFBAYGBQYHBwYIChAKCgkJChQODwwQFxQYGBcU FhYaHSUfGhsjHBYWICwgIyYnKSopGR8tMC0oMCUoKSj/2wBDAQcHBwoIChMKChMoGhYaKCgoKCgo KCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCj/wgARCAAyAGQDASIA AhEBAxEB/8QAGwABAAIDAQEAAAAAAAAAAAAAAAQFAQIDBgf/xAAZAQEBAQEBAQAAAAAAAAAAAAAA AQMCBAX/2gAMAwEAAhADEAAAAfqgGu1dE3aHXpeZqZNStauGemeZsNObYZ98eEulx1ix5sayBMh3 feNF03gaOvaBL7vo7Kg62+hGJGk44tXift4tvGW1h0+h5okOz6S1Glvm2MuM9UOYAAAAAAB//8QA IhAAAwEAAQQCAwEAAAAAAAAAAQIDBAAFERITEDEgISIw/9oACAEBAAEFAvknsPMcBB4WA4D34zdu CgJ/LRVQnvmESwlyWny5Jy1b18dF9fpGuosem0d48q/rVbh4roagZfZ00A+tIvQ+62ipptpxw1mO Z7Uz4gIxkkU4frPAnk8LLfWyVU0XxyapCVfCN7sTLO3iK6fSnStFqnpuutrfF6etdP8ARCmqHCpy Jld6UileoCffLoxoucdPj7ZYjGePI0bfKT8Ub9DtUMq0HGSvcK/k6VI7U4Pr/f8A/8QAIREAAgIB BAIDAAAAAAAAAAAAAREAAhASEyExIjBBQoH/2gAIAQMBAT8Bw8NQWZWKCpr5Tdszo/JZfMT4mj6m bawEDzN1BCWrq7wOOoz6f//EACIRAAIBAwMFAQAAAAAAAAAAAAECAAMRIRASIgQTMEFhMf/aAAgB AgEBPwHQ4zoBfENMhb6OWDYhREANQ/DNm7jKV7iNfuWEcNm+lQMVIU2MHRl2Lv79fYnAYhF4vH8m 8+H/xAAsEAACAQMCBAUEAwEAAAAAAAABAgMAERIhMRMiUXEQIzJhgQQgQUJAUmKR/9oACAEBAAY/ AvHWt60NamtPC2v35ZC21/ehrTucre1Wti3Q01xajEd3Fx2rDluoyU19NjMRC5IZkNtaZZDk0bFL 9fC9ifYU72Ix3BrgzRmRtyNqaNADIz3Vb/6rK2Lf1vcVLI+UUTIrMBzA9qL4CFf06296xwLJnbJG t8Gkl0VV8rG+otUYjZFKnMFhf4p0nxfiNkbbVhEuK+BqTJWjjYWxypXZxip+TQCDFR+MNRXqFRxu ddttKdPSAdqIRuWSQL0HyaYHRRI1he4HY0XiYZgaVOjuXwtYuuJ/5U0chjcJ+8e3bxva9IdMTprS mwJXTvX1Up9XmaDvTX8uHLLG9715ihgIvz3rgJEGvI++y8xqKHUhpVvUsADBDGpvfW9zUvDmfjSb ytqakmml4kr6aLYfZieYVZRp7VyIMfzkaNgAO9XQIvc3oHEDrzUdFy65VzLduoNa/wAD/8QAJxAB AAICAQMDAwUAAAAAAAAAAQARITFBUWFxEIGhscHRIECR8PH/2gAIAQEAAT8h9TuVE9l1rE0o+Gak IAtCQXpecTEwvS8/rr7cqdUhVCtaJXhdI5XH3iXotb2+IVLQpxtmHGSXrR/veBlWiFpCivmH/EVY wS1mp2ufQbfHptYdcnRpEhGzazps8+IGFAcLQ1fiExQzRB2mMkxKF771XESEFEpb6u7tMKZCvqry h3IXx5yWh1055lq48rJj2Ny31oxQe0HgDNHpjUXjUX3zNm+szsIKv3JlHG8CEv6S+8coVyfYzKWT AJ4i1cDu132JakIBwWOSPamFs5cTrOAxTI9EBspiS3l60YyNQlihpbA9YEVar1Okm06gq+k29RhJ H0J2GiWX/mMtUFjFgfxHvaDur/E2eC1Az2+00GPBwaxDuBE0QdvVBKdQ+XMWQo2eRhB3qYpXxVx0 VPTfPsR5Ucq/ZDgVeWWP4lCXirKj4mZajQ6+dS9OXP7D/9oADAMBAAIAAwAAABDzf4l7nw/Rowq3 zyDL2z/zzzzzzzz/xAAhEQEAAgEDBAMAAAAAAAAAAAABABEhMUFREDBh8HHB8f/aAAgBAwEBPxCU uQiDWXEZMGh0eOCJvqXkr49IsI1RGgVri+a3zxtErfdy55MEckBetujAiyILb0fH4/cJ3yuJZU2I uvz2f//EACQRAQACAgECBgMAAAAAAAAAAAEAESExQXGBEDBhkeHxUbHw/9oACAECAQE/EIobiBbU Gy4iBzLh9u9fvwGGYj2xhvrKrlCmVV1x+BdYpzi4gFL+N/M6t/X7QD1OO/3FtmqX68LWRp3URmgl +hXOShLOtVVx1B0BfNEqVdRVDGoqIu/J/8QAJhABAQACAgEDBAIDAAAAAAAAAREAITFBURBhgSBx kaEwwbHh8P/aAAgBAQABPxD1bTHcuJ7+An8uMKUsYwY4kCHjvD7F2NyeXhUmjy/h/GERMUBI/wBb 319SgKsDvKvCyaI4a7wwIEODjzm+sgWjUDoKx1t+2K8DmUo7QeNX2aXC1FzQB8eSzwzS5bgKmCn6 r8x75bXobICThJpeCnsywYOkWeQvTneIc5iJ8x9He9ApiwAyd6GQSo4bpsGmSBqt/AwIM211dgEF +M0sgtgeTtHvjlkwVFw9roHA4EPUcDsyAYhvgp9hB2XIj8juNwdpRLBuzKUFEdtOhS9tnjAY25EF AyCtvBMpa2piSeSTnWOAh2Gryq7X0ahGJAxdcYagfZdbbuOI+6lCCwr+ncwwyAtbXT0PLr94gpTQ VcRxLo5LDw2TBtcKqIEl68YdUAYTFdggEPJlnwqIAqPGNx/3hEhGu3ejzMCW6xJ6FuHh7xOkoxNR QnZH8eq1YMe3L+jKDjVBWyzLL8qxCDe8rBt4gUw8wIDEQvgyARNJPOEE+ATEv3/b3womdphk7oJ/ yYFoQ00VUngTXzkkNZ0LNNnw0ZUfYATp0ECnzhwA9cS05ff1dCKIjlJApFoXR8YumkUIPawyTBoB TvgQdcvWMDDn2ahoOb/jAkFWsUSAD22vRk5GSQewAF9rxgjz1z3A3ODVw5g6cXh0q8mz750zU04v f1n8P//Z" alt="" width="100" height="50" style="display: block; margin-left: 4px; margin-top: 2px;">'; UniSession.AddJS(HtmlMemo.JSName + '.insertAtCursor('+ Chr(39)+InlineData+Chr(39) +')');
  23. andyhill
    Yes, works in _img_ event but not in dblclick event but I now understand why - thank you. Also can you resolve inline issue mentioned earlier. In addition if you drag an image inside HtmlMemo it disappears ???
  24. andyhill
  25. andyhill
    HtmlMemo.ClientEvents.ExtEvents.Clear; s:= 'initialize=function initialize(sender, eOpts) '+ '{ '+ ' sender.getDoc().addEventListener(''dblclick'', function() '+ ' { '+ ' if (arguments[0].target && arguments[0].target.tagName.toLowerCase()==''img'') '+ ' { '+ ' alert(arguments[0].target.getAttribute(''id'')); '+ ' } '+ ' }); '+ '} '; HtmlMemo.ClientEvents.ExtEvents.Add(s); // Alert event fires: 'id' Always shows null 'dblclick' event fires: 'id' Always shows '' //////////////////////////////////////////////////////////////////////////////////////////////////// HtmlMemo.ClientEvents.ExtEvents.Clear; s:= 'initialize=function initialize(sender, eOpts) '+ '{ '+ ' sender.getDoc().addEventListener(''dblclick'', function() '+ ' { '+ ' if (arguments[0].target && arguments[0].target.tagName.toLowerCase()==''img'') '+ ' { '+ ' ajaxRequest(sender, ''_img_'', ["id="+arguments[0].target.getAttribute(''id'')]); '+ ' } '+ ' }); '+ '} '; HtmlMemo.ClientEvents.ExtEvents.Add(s); // 'dblclick' event fires: 'id' Always shows '' '_img_' event fires, 'id' Always shows '' Please advise ?
×
×
  • Create New...