[twsocket] Do TWSocket support Http Proxy?

2009-11-03 Thread isgbuddy
TWSocket seem just support socks proxy now. Anybody know how to support 
Http proxy in TWSocket?

--
To unsubscribe or change your settings for TWSocket mailing list
please goto http://lists.elists.org/cgi-bin/mailman/listinfo/twsocket
Visit our website at http://www.overbyte.be


Re: [twsocket] Do TWSocket support Http Proxy?

2009-11-03 Thread isgbuddy

No. You maybe misunderstand.

I need TWSocket support Http Proxy Server not THttpCli. If you ever use 
Yahoo Messenger, You will know there have Connection Preferences.


Please take a look at http://i34.tinypic.com/a1o9ol.jpg

Fastream Technologies wrote:

HttpProt.pas has support for HTTP/1.1 CONNECT method proxies.

Regards,

SZ

On Wed, Nov 4, 2009 at 1:13 AM, isgbuddy isgbu...@gmail.com wrote:

  

TWSocket seem just support socks proxy now. Anybody know how to support
Http proxy in TWSocket?
--
To unsubscribe or change your settings for TWSocket mailing list
please goto http://lists.elists.org/cgi-bin/mailman/listinfo/twsocket
Visit our website at http://www.overbyte.be



--
To unsubscribe or change your settings for TWSocket mailing list
please goto http://lists.elists.org/cgi-bin/mailman/listinfo/twsocket
Visit our website at http://www.overbyte.be

  


--
To unsubscribe or change your settings for TWSocket mailing list
please goto http://lists.elists.org/cgi-bin/mailman/listinfo/twsocket
Visit our website at http://www.overbyte.be


Re: [twsocket] Do TWSocket support Http Proxy?

2009-11-03 Thread isgbuddy
Or can you share your TWSocket unit that patched Http Proxy? I know 
there have someone to do this. But I don't know where to download it.


Fastream Technologies wrote:

I understood you correctly. All you need to do is to copy the necessary code
from httpprot to wsocket.

Regards,

SZ

On Wed, Nov 4, 2009 at 9:27 AM, isgbuddy isgbu...@gmail.com wrote:

  

No. You maybe misunderstand.

I need TWSocket support Http Proxy Server not THttpCli. If you ever use
Yahoo Messenger, You will know there have Connection Preferences.

Please take a look at http://i34.tinypic.com/a1o9ol.jpg


Fastream Technologies wrote:



HttpProt.pas has support for HTTP/1.1 CONNECT method proxies.

Regards,

SZ

On Wed, Nov 4, 2009 at 1:13 AM, isgbuddy isgbu...@gmail.com wrote:



  

TWSocket seem just support socks proxy now. Anybody know how to support
Http proxy in TWSocket?
--
To unsubscribe or change your settings for TWSocket mailing list
please goto http://lists.elists.org/cgi-bin/mailman/listinfo/twsocket
Visit our website at http://www.overbyte.be





--
To unsubscribe or change your settings for TWSocket mailing list
please goto http://lists.elists.org/cgi-bin/mailman/listinfo/twsocket
Visit our website at http://www.overbyte.be



  


--
To unsubscribe or change your settings for TWSocket mailing list
please goto http://lists.elists.org/cgi-bin/mailman/listinfo/twsocket
Visit our website at http://www.overbyte.be

  


--
To unsubscribe or change your settings for TWSocket mailing list
please goto http://lists.elists.org/cgi-bin/mailman/listinfo/twsocket
Visit our website at http://www.overbyte.be


Re: [twsocket] Do TWSocket support Http Proxy?

2009-11-03 Thread isgbuddy

thanks.

I searched. There don't have one method named CONNECT in HttpProt.pas. 
Can you tell me what is exact method name?


Fastream Technologies wrote:

Search for the CONNECT method. That is the method you will need to
implement for TWSocket.

On Wed, Nov 4, 2009 at 9:33 AM, isgbuddy isgbu...@gmail.com wrote:

  

Many thanks.

Can you tell us a piece that what's code we need copy?


Fastream Technologies wrote:



I understood you correctly. All you need to do is to copy the necessary
code
from httpprot to wsocket.

Regards,

SZ

On Wed, Nov 4, 2009 at 9:27 AM, isgbuddy isgbu...@gmail.com wrote:



  

No. You maybe misunderstand.

I need TWSocket support Http Proxy Server not THttpCli. If you ever use
Yahoo Messenger, You will know there have Connection Preferences.

Please take a look at http://i34.tinypic.com/a1o9ol.jpg


Fastream Technologies wrote:





HttpProt.pas has support for HTTP/1.1 CONNECT method proxies.

Regards,

SZ

On Wed, Nov 4, 2009 at 1:13 AM, isgbuddy isgbu...@gmail.com wrote:





  

TWSocket seem just support socks proxy now. Anybody know how to support
Http proxy in TWSocket?
--
To unsubscribe or change your settings for TWSocket mailing list
please goto http://lists.elists.org/cgi-bin/mailman/listinfo/twsocket
Visit our website at http://www.overbyte.be







--
To unsubscribe or change your settings for TWSocket mailing list
please goto http://lists.elists.org/cgi-bin/mailman/listinfo/twsocket
Visit our website at http://www.overbyte.be





  


--
To unsubscribe or change your settings for TWSocket mailing list
please goto http://lists.elists.org/cgi-bin/mailman/listinfo/twsocket
Visit our website at http://www.overbyte.be



  

--
To unsubscribe or change your settings for TWSocket mailing list
please goto http://lists.elists.org/cgi-bin/mailman/listinfo/twsocket
Visit our website at http://www.overbyte.be



--
To unsubscribe or change your settings for TWSocket mailing list
please goto http://lists.elists.org/cgi-bin/mailman/listinfo/twsocket
Visit our website at http://www.overbyte.be

  


--
To unsubscribe or change your settings for TWSocket mailing list
please goto http://lists.elists.org/cgi-bin/mailman/listinfo/twsocket
Visit our website at http://www.overbyte.be


Re: [twsocket] Report a strange problem about using TsslHttpCli(ICSv7)in Delphi 2010 thread.

2009-10-04 Thread isgbuddy

Hoho,

Many thanks. These code exactly worked.

Why the same code don't have problem in Delphi 7? Can you fix these code 
to ICS source?


Arno Garrels wrote:

isgbuddy wrote:

  

You don't need a Chinese windows. You just install East Asian input
method in your windows. Then you will get this issue.



Ok, finally it repeated. The problem is that the thread requires
a message pump if it owns a window. It is _neither_ a problem related 
to ICS nor to Delphi! You'll see the same freeze when you create a window

by calling Classes.AllocateHwnd(). Uncomment the commented lines below
to make it working:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
procedure FormCreate(Sender: TObject);
  private
{ Private declarations }
  public
{ Public declarations }
  end;

  TTestThread = class(TThread)
  private
FHandle : HWND;
procedure WndProc(var MsgRec: TMessage);
  protected
procedure Execute;override;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TTestThread }
procedure TTestThread.WndProc(var MsgRec: TMessage);
begin
  MsgRec.Result := DefWindowProc(FHandle, MsgRec.Msg, MsgRec.wParam, 
MsgRec.lParam);
end;

procedure TTestThread.Execute;
var
  Msg: TMsg;
begin
  // PeekMessage(Msg, 0, 0, 0, PM_NOREMOVE); // Initialize thread's message 
queue

  FHandle := Classes.AllocateHWnd(WndProc); // Create a hidden window

  {while not Terminated do
  begin
while PeekMessage(Msg, 0, 0, 0, PM_REMOVE) do
begin
if Msg.message = WM_QUIT then
  Terminate
else begin
  TranslateMessage(Msg);
  DispatchMessage(Msg);
end;
end;}

Sleep(1000);
  end;
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
with  TTestThread.Create(true) do Resume;
end;

end.
--
To unsubscribe or change your settings for TWSocket mailing list
please goto http://lists.elists.org/cgi-bin/mailman/listinfo/twsocket
Visit our website at http://www.overbyte.be

  


--
To unsubscribe or change your settings for TWSocket mailing list
please goto http://lists.elists.org/cgi-bin/mailman/listinfo/twsocket
Visit our website at http://www.overbyte.be


Re: [twsocket] Report a strange problem about using TsslHttpCli(ICSv7)in Delphi 2010 thread.

2009-10-04 Thread isgbuddy

OK.

Anyway, Thank for your help.

Arno Garrels wrote:

isgbuddy wrote:
  

Hoho,

Many thanks. These code exactly worked.

Why the same code don't have problem in Delphi 7? Can you fix these
code to ICS source?



My code below does not work with Delphi 7 as well. You probably used
ICS V5 with Delphi 7. I guess that the V5 components did not create
their hidden window in the constructor but later when the window is 
actually needed. Using ICS in a thread anyway requires a working 
message pump, so I don't know whether it was a real improvement if we

created the hidden window at some later time.
Note that ICS creates one or more hidden windows and once a window
is created there must exist a working message pump, otherwise entire
application may freeze.

--
Arno Garrels


  

Arno Garrels wrote:


isgbuddy wrote:


  

You don't need a Chinese windows. You just install East Asian input
method in your windows. Then you will get this issue.



Ok, finally it repeated. The problem is that the thread requires
a message pump if it owns a window. It is _neither_ a problem related
to ICS nor to Delphi! You'll see the same freeze when you create a
window 
by calling Classes.AllocateHwnd(). Uncomment the commented lines
below 
to make it working:


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
procedure FormCreate(Sender: TObject);
  private
{ Private declarations }
  public
{ Public declarations }
  end;

  TTestThread = class(TThread)
  private
FHandle : HWND;
procedure WndProc(var MsgRec: TMessage);
  protected
procedure Execute;override;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TTestThread }
procedure TTestThread.WndProc(var MsgRec: TMessage);
begin
  MsgRec.Result := DefWindowProc(FHandle, MsgRec.Msg, MsgRec.wParam,
MsgRec.lParam); end;

procedure TTestThread.Execute;
var
  Msg: TMsg;
begin
  // PeekMessage(Msg, 0, 0, 0, PM_NOREMOVE); // Initialize thread's
message queue 


  FHandle := Classes.AllocateHWnd(WndProc); // Create a hidden window

  {while not Terminated do
  begin
while PeekMessage(Msg, 0, 0, 0, PM_REMOVE) do
begin
if Msg.message = WM_QUIT then
  Terminate
else begin
  TranslateMessage(Msg);
  DispatchMessage(Msg);
end;
end;}

Sleep(1000);
  end;
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
with  TTestThread.Create(true) do Resume;
end;

end.
--
To unsubscribe or change your settings for TWSocket mailing list
please goto http://lists.elists.org/cgi-bin/mailman/listinfo/twsocket
Visit our website at http://www.overbyte.be
  

--
To unsubscribe or change your settings for TWSocket mailing list
please goto http://lists.elists.org/cgi-bin/mailman/listinfo/twsocket
Visit our website at http://www.overbyte.be

  


--
To unsubscribe or change your settings for TWSocket mailing list
please goto http://lists.elists.org/cgi-bin/mailman/listinfo/twsocket
Visit our website at http://www.overbyte.be