Welcome, Guest
You have to register before you can post on our site.

Username
  

Password
  





Search Forums

(Advanced Search)

Forum Statistics
» Members: 98,932
» Latest member: soikeotop
» Forum threads: 2,426
» Forum posts: 11,371

Full Statistics

Online Users
There are currently 964 online users.
» 4 Member(s) | 957 Guest(s)
Applebot, Bing, Google, 32win32blogv, adamevestoresfr, ahmedaltayeb, soikeotop

Latest Threads
WebApplication.IP change ...
Forum: IntraWeb General Discussion
Last Post: MJS@mjs.us
09-11-2026, 09:49 PM
» Replies: 1
» Views: 300
Hook/callback to handle t...
Forum: IntraWeb General Discussion
Last Post: Lenfors
09-08-2026, 09:03 AM
» Replies: 0
» Views: 237
Reproducible IIS crash in...
Forum: IntraWeb General Discussion
Last Post: alex.trejo@tttnet.com.mx
09-08-2026, 01:48 AM
» Replies: 0
» Views: 254
The packages IW16.xx inc...
Forum: IntraWeb General Discussion
Last Post: hsbelli
09-03-2026, 11:46 AM
» Replies: 2
» Views: 561
Redirection issues with F...
Forum: IntraWeb General Discussion
Last Post: magosk
08-31-2026, 10:03 AM
» Replies: 0
» Views: 304
Source Code
Forum: IntraWeb General Discussion
Last Post: magosk
08-31-2026, 08:11 AM
» Replies: 3
» Views: 726
TContenthandler requires ...
Forum: IntraWeb General Discussion
Last Post: valmeras
08-30-2026, 02:35 AM
» Replies: 0
» Views: 279
TIWjQDBGrid erratic behav...
Forum: IntraWeb General Discussion
Last Post: alex.trejo@tttnet.com.mx
08-20-2026, 05:12 PM
» Replies: 8
» Views: 2,372
Change Language DataTable
Forum: IntraWeb General Discussion
Last Post: Rigoberto Mercedes
08-19-2026, 03:21 PM
» Replies: 1
» Views: 419
How to terminate HTTP Thr...
Forum: Indy
Last Post: rlebeau
08-14-2026, 08:01 AM
» Replies: 5
» Views: 1,076

 
  OpenSSL 1.1.1 support planned?
Posted by: t.muramoto - 10-07-2019, 07:38 AM - Forum: Indy - Replies (4)

Hi,

Support for OpenSSL "1.0.2" will end on December 31, 2019.
https://www.openssl.org/policies/releasestrat.html

When will Indy support "1.1.1"?


Thanks.

Print this item

  How fix a raw text image gif to send to front end
Posted by: cprmlao@hotmail.com - 10-06-2019, 11:29 PM - Forum: IntraWeb General Discussion - Replies (1)

I have a winCGI executable script returning a image. I am using Intraweb as server.

The cgi is from a third party and I can't change your code.

I create my owner  ContentHandler to run the cgi. 

I am not using CGIRunner because It diidn´t work to me.

My handler is something as:

Code:
function TContentDicom.Execute(aRequest: THttpRequest; aReply: THttpReply;
  const aPathname: string; aSession: TIWApplication;
  aParams: TStrings): boolean;
var
  s,wresult,saida,LocalDoc:string;
  i:integer;
begin
  Result:=True;
  LocalDoc:=TIWAppInfo.GetAppPath + 'wwwroot\cgi-bin\tcgi.exe';
  saida:=StrOemToAnsi(MyRunCGI(LocalDoc,TIWAppInfo.GetAppPath + 'wwwroot\cgi-bin\'));
  with aReply do
    begin
      ResetReplyType;
      Code := 200;
      ContentType := MIME_GIF; // MIME_HTML;
      SendStream(TstringStream.Create(saida));
    end;
end;
I have the next code returning from CGI when I query a image:

   
Code:
'Content-type: image/gif'#$A'Access-Control-Allow-Origin: *'#$A#$A'GIF89a@'#1'@'#1'1222333444555666777888999:::;;;<<<===>>>???@@@AAABBBCCCDDDEEEFFFGGGHHHIIIJJJKKKLLLMMMNNNOOOPPPQQQRRRSSSTTTUUUVVVWWWXXXYYYZZZ[[[\\\]]]^^^___```aaabbbcccdddeeefffggghhhiiijjjkkklllmmmnnnooopppqqqrrrssstttuuuvvvwwwxxxyyyzzz{{{|||}}}~~~'#$7F#$7F#$7F'€€€'#$0081#$0081#$0081'‚‚‚ƒƒƒ„„„………†††‡‡‡ˆˆˆ‰‰‰ŠŠŠ‹‹‹ŒŒŒ'#$008D#$008D#$008D'ŽŽŽ'#$008F#$008F#$008F#$0090#$0090#$0090'‘‘‘’’’“““”””•••–––———˜˜˜™™™ššš›››œœœ'#$009D#$009D#$009D'žžžŸŸŸ   ¡¡¡¢¢¢£££¤¤¤¥¥.................


I need to send the image to a front end app in the browser.

   
Code:
<div>
    <img src="getImage(1)">
</div>

Here, getImage function takes the image from server, but not is showing, because I think the format I am returning the image from server to front end has something wrong.
How could I fix the content text of the image on server to be a valid image in the front end?

Print this item

  Mouse events on form level ?
Posted by: SorenJensen - 10-06-2019, 11:40 AM - Forum: IntraWeb General Discussion - Replies (2)

Hi All,

Sorry if this have been asked before. I have tried to search previous posts, but have not found any, and apparently after a number of searches, one is only allowed to make one search every 30 seconds....

Anyway, I have a region, with a listbox covering it, on my form and with visible property set false. When certain conditions are met, the visible property is set true and the region becomes visible.

What I'm looking for is a way to set visible = false again, without having to click the region / listbox. Obviously it works fine with a onclick event for the listbox, but that is only when the mouse pointer is within the boundaries of the listbox. I want the region / listbox to disappear regardless of where the mouse pointer is when I click it. I do not seem to find any mouse events for the form.

Can anybody tell me how to do that, or point me in the right direction ? Anyone have any examples anywhere ?

Regards
Soren

Print this item

  Intraweb 15.1.5 - IWEdit in IWGrid.Cell problem
Posted by: piotr.lewicki@mapi.com.pl - 10-05-2019, 04:55 PM - Forum: IntraWeb General Discussion - Replies (12)

Hi

I have a TIWGrid Control with 6 columns and 10 rows.

For all cells in grid I create a TIWEdit Control. (button Fill)

procedure TIWMainForm.IWButton1Click(Sender: TObject);
var
  i, j: Integer;
begin
  for j := 0 to IWGrid1.RowCount - 1 do
    for i := 0 to IWGrid1.ColumnCount - 1 do
    begin
      with IWGrid1.Cell[j, i] do
      begin
        Alignment := taCenter;
        Width    := IntToStr(Round(IWGrid1.Width / IWGrid1.ColumnCount));

        Control := TMyIWEdit.Create(IWGrid1);
        with TMyIWEdit(Control) do
        begin
          X := i;
          Y := j;
          Text := '';
          Width := StrToInt(IWGrid1.Cell[j, i].Width) - 10;
          OnAsyncKeyDown := OnAsyncKeyDownControl;
          OnAsyncClick  := OnAsyncClickControl;
        end;
      end;
    end;
  SetFocus(0, 0);
end;

   

Any IWEdit control has attached procedure for OnAsyncKeyDown event (code below).

The procedure realize the below behavior:

When enter to first control in any rows, enter any value to IWEdit control in selected cell and push enter key
all other IWEdit controls in current row will have the same value.

And here is a problem.

All IWEdit controls in current row, wchich have changed value, are move to left, upper corner of IWGrid control.

   

In Intraweb ver. 14.2.6  i haven't the problem..
In Intraweb ver. 15.1.6 problem exists.

Where can be a problem?

Test project:

https://github.com/PeterDelphinsky/IWGridTest

procedure TIWMainForm.OnAsyncKeyDownControl(Sender: TObject;
  EventParams: TStringList);
var
  pKey: Integer;
  pText: String;
  i: Integer;
begin

  if not TryStrToInt(EventParams.Values['Which'],pKey) then
    pKey := 0;

  if pKey = 13 then
  begin

    pText := IWGrid1.Cell[Y, X].Control.Text;

    if (X = 0) and (pText <> '') then
    begin

      for i := X + 1 to IWGrid1.ColumnCount - 1 do
        IWGrid1.Cell[Y, i].Control.Text := pText;  //<-- 

      Exit;
    end;
    
//   (...)

  end;
end;

Print this item

  SSL - Where to get instructions
Posted by: Quinn Anderson - 10-04-2019, 11:00 AM - Forum: IntraWeb General Discussion - Replies (1)

Greetings, my IW Compadres



Has anyone done a standalone server with SSL recently?

Hunted high and low and gathered information from various search results.

Tried everything we have read plus everything we could think of.

The problem is not the certificates / pem files.

Wrote a test app in another language to prove that.

Err is - Cannot load root certificates

Is there a definitive instruction document for activating SSL in IW ?






Thanks, q.

Print this item

  Capture stack trace
Posted by: dwill9 - 10-03-2019, 09:33 PM - Forum: CrossTalk General Discussion - Replies (1)

trying to troubleshoot a "null reference" exception being passed from a .net dll.  The developer wants a stack trace.  Is there a way to get this back from crosstalk?  ECTDotNETException.StackTrace is empty.  E.Message and E.ToString are the same... "NullReferenceException: Object reference not set to an instance of an object."  Is there some sort of logging that could be to be turned on?  How could I capture the stack trace coming back from the .net dll?

Print this item

  How to ckeck and setting browser orientation?
Posted by: newsanti - 10-03-2019, 07:19 AM - Forum: IntraWeb General Discussion - Replies (2)

Webapplication.Browser properties provided information :
-IsMobile
-device information Detection: iPhone iPad or android or windows or macOS

How to check browser orientation portrait or landsacpe?
How to setting browser orientation for fix display with mobile or tablet?

Print this item

  Soap Webservice. How to ?
Posted by: SorenJensen - 10-03-2019, 05:31 AM - Forum: IntraWeb General Discussion - Replies (8)

Hi All,

I need to receive data from a webservice after a request.

I will normally include the webservice specs as a wsdl (*.pas file), and communicate with the service using XML.

Is that possible in IntraWeb 15.1.5 and if, do anyone have any examples of how to ?

In a Delphi 2010 Win32 program, I include the WDSL as a unit, and call the procedures it expose, as I would any other procedures. The resulting data are received as an XML file, which I then decipher (with a parser) and pull out the data I need.

In a similar C# program in MS Visual Studio 2010, it's a bit easier as XML is an native part, making the individual data in the XML, available as properties of the XML file.

Is there anything similar awailable in IntraWeb ?

Regards
Soren

Print this item

  IW14 Indy - Running multiple services of the same executable
Posted by: nunnsie - 10-03-2019, 02:58 AM - Forum: IntraWeb General Discussion - Replies (5)

As per the subject line, really. Is it possible to run multiple services via the same executable? We see some hard dependencies between the application name and the service name that makes this difficult.

At the moment we have have an app that binds to a port on the command line, e.g. AppName.exe -port=1234.

This can be installed as a service via the /install flag or using sc.exe happily as long as the service name matches AppName.

If I want to run multiple versions, they don't work as the service name doesn't match.

E.g.
Works on service start/stop: sc create AppName binPath= "c:\path\AppName.exe -port=1234"
Hangs on service start: sc create AppName2 binPath= "c:\path\AppName.exe -port=3456"

Any suggestions or ways to achieve this?

Print this item

  Read value of HTML element back to delphi
Posted by: PDSBILL - 10-02-2019, 07:10 PM - Forum: IntraWeb General Discussion - Replies (1)

I have a need to read the value of a rendered html element.
I added a iwbutton with script line for on-click event to get the value and show it using alert() and it works,  but really want to get the value (String) and save it to a local delphi variable.
alert(document.getElementsByClassName("fu-upload-listItem").length);   this works

how do I get the value back to delphi?

Print this item