Baxing

On 3/11/2022 at 3:04 AM, FPiette said:

You're welcome.

Whenever you get the solution, please post it here.

 

Hello FPiette,

I have posted a new thread in the Intraweb forum. And there are many members who have replied to the topic. If you are interested, you can read it in this link. 

For now, I am not able to implement ICS on IntreWeb, I am currently working on a way to implement an Indy TCP socket on IntraWeb for WebSocket Client(I have a sample code from this link) but still use ICS for a WebSecket Server.

And if you have any suggestions to be able to using ICS on IntraWeb please tell me.

Thank you

Hello FPiette,

OK,

Thank you very much for the suggestion and good feedback on my problem.

1 hour ago, FPiette said:

So the handle is correct and yet the error 1400 (Invalid handle) is triggered.

Maybe PostMessage is not the one we think it is. Try with a fully qualified name:

procedure TForm1.PostMessageButtonClick(Sender: TObject);
begin
    if FWinHandle = INVALID_HANDLE_VALUE then
        Memo1.Lines.Add('Window handle not created')
    else if not WinApi.Windows.PostMessage(FWinHandle, WM_USER, 1234, 5678) then
        Memo1.Lines.Add(Format('PostMessage failed with error %d (HWND=%d)',
                               [GetLastError, FWinHandle]));
end;

 

Hello

It give same result

I show you for coding from your sample in my IntraWeb application

unit Unit1;

interface

uses
  Classes, SysUtils, IWAppForm, IWApplication, IWColor, IWTypes, IWCompMemo,
  Vcl.Controls, IWVCLBaseControl, IWBaseControl, IWBaseHTMLControl, IWControl,
  IWCompButton,
  Winapi.Windows, Winapi.Messages;

type
  TIWForm1 = class(TIWAppForm)
    BTNCreateHwnd: TIWButton;
    BTNPostMessage: TIWButton;
    BTNDestroyHwnd: TIWButton;
    MMO1: TIWMemo;
    procedure BTNCreateHwndAsyncClick(Sender: TObject;
      EventParams: TStringList);
    procedure BTNDestroyHwndAsyncClick(Sender: TObject;
      EventParams: TStringList);
    procedure BTNPostMessageAsyncClick(Sender: TObject;
      EventParams: TStringList);
  private
    FWinHandle : HWND;

    procedure WndProc(var Msg: TMessage);
  public
    constructor Create(AOwner : TComponent); override;
  end;

implementation

{$R *.dfm}


{ TIWForm1 }

procedure TIWForm1.BTNCreateHwndAsyncClick(Sender: TObject;
  EventParams: TStringList);
begin
  if FWinHandle <> INVALID_HANDLE_VALUE then
  begin
    System.Classes.DeallocateHWnd(FWinHandle);
    FWinHandle := INVALID_HANDLE_VALUE;
    mmo1.Lines.Add('Window handle destroyed')
  end;
  FWinHandle := System.Classes.AllocateHwnd(WndProc);
  if FWinHandle = INVALID_HANDLE_VALUE then
    mmo1.Lines.Add('Error creating window handle')
  else
    mmo1.Lines.Add(Format('Window handle create %d', [FWinHandle]));
end;

procedure TIWForm1.BTNDestroyHwndAsyncClick(Sender: TObject;
  EventParams: TStringList);
begin
  if FWinHandle = INVALID_HANDLE_VALUE then
    mmo1.Lines.Add('Window handle not created yet')
  else
  begin
    System.Classes.DeallocateHWnd(FWinHandle);
    FWinHandle := INVALID_HANDLE_VALUE;
    mmo1.Lines.Add('Window handle destroyed')
  end;
end;

procedure TIWForm1.BTNPostMessageAsyncClick(Sender: TObject;
  EventParams: TStringList);
begin
  if FWinHandle = INVALID_HANDLE_VALUE then
    mmo1.Lines.Add('Window handle not created')
  else if not PostMessage(FWinHandle, WM_USER, 1234, 5678) then
//    mmo1.Lines.Add('PostMessage failed');
//    mmo1.Lines.Add(Format('PostMessage failed with error %d', [GetLastError]));
    mmo1.Lines.Add(Format('PostMessage failed with error %d (HWND=%d)', [GetLastError, FWinHandle]));
end;

constructor TIWForm1.Create(AOwner: TComponent);
begin
  inherited;

  FWinHandle := INVALID_HANDLE_VALUE;
end;

procedure TIWForm1.WndProc(var Msg: TMessage);
begin
  mmo1.Lines.Add(Format('MSG=%d', [Msg.Msg]));
end;

initialization
  TIWForm1.SetAsMainForm;

end.

And this is result to show GetLastError, FWinHandle (click CreateHwnd and then click PostMessage buttons)

Thank you

1 hour ago, FPiette said:

Probably no message pump. Let's add the error number to know more.

Replace

        Memo1.Lines.Add('PostMessage failed');

by

        Memo1.Lines.Add(Format('PostMessage failed with error %d', [GetLastError]));

then try again and tell us the error code PostMessage returns.

This Error code :

PostMessage failed with error 1400

Hello FPiette,

This is result of you sample code on VCL Application when press Create Hwnd and Post Message button

and IntraWeb Application when press Create Hwnd and Post Message button

Hello, Chris Rutkow, FPiette

I've changed that setting port and addr but still having the same problem. (Invalid argument (#10022 in WSAAsyncSelect)

I found that if I put the connection code to event OnFormShow, it will be able to connected the server normally.

But can not be used on event AsyncClick of any control, which in use is required on this event.

Thanks

I can't do it, Please give me a sample code for VCL and I will try it in the IntraWeb app.

Now, I using IntraWeb version 15.2.37 on Delphi 10.3.3 (and using ICS Version 8.68)

I'll try to test it according to your suggestion. and try to send data from server to specified cleint.

I want to send data between multi client and server privately with TCP for some specific work. In the beginning I tested via localhost as the first step. Before putting the server part on the real server and in production I will use SSL as well.

I think using TWSocket(TSslWSocket) for Client (on Delphi Intrraweb App.) and TWSocketServer(TSslWSocketServer) for Server (on VCL) is the answer.

How to use message pump?  Is there a usage example to suggest me?
or

Using TICsIpStrmLog can do as I want please tell me.

I've just used the ICS for the first time and tested it on VCL from the available samples and enough to be quite as I want. But encountered a problem when using it with IntraWeb.

Please help guide me again.

Hello,

I have tested connecting to Web Socker Server with Component TWSocket on Delphi IntraWeb Application.

But an error occurred as attached picture. The command for connecting to Socket server is used within the TIWButton's OnAsyncClick event with the following commands:

  with sktClient do
  begin
    Proto := 'tcp';
    Port := 'localhost';
    Addr := 'telnet';
    LineMode := True;
    LineEnd := #13#10;
    Connect;
  end

which this command can be used normally on VCL..

Please guide me for use ICS Sockets components normally on Delphi IntraWeb. Because now I can't connect and send/receive any data if using ICS Sockets components on Delphi IntraWeb application.

Thanks