unit ProgrammCXS01;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Bass, ExtCtrls, OleCtrls, MSScriptControl_TLB, ComCtrls, Menus,
popup;
const
WM_INFO_UPDATE = WM_USER + 101;
type
TForm1 =
class(TForm)
Panel1: TPanel;
GroupBox2: TGroupBox;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
GroupBox1: TGroupBox;
Label1: TLabel;
Button1: TButton;
GroupBox3: TGroupBox;
Button3: TButton;
info: TButton;
Label2: TLabel;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure cbDirectConnectionClick(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure infoClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
procedure WndProc(
var Msg: TMessage);
override;
end;
var
Form1: TForm1;
Proxy:
array [0..99]
of char;
//proxy server
cthread: DWORD = 0;
chan: HSTREAM = 0;
win: hwnd;
implementation
const
urls:
array[0..9]
of string = (
// preset stream URLs
'
http://DemoLink.myserver.de:127.0.0.0/listen.pls ','
',
'
','
',
'
','
',
'
','
',
'
','
'
);
{$R *.dfm}