Author: jerome
Date: 2009-07-23 11:53:48 +0200 (Thu, 23 Jul 2009)
New Revision: 5141
Modified:
software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/Project2.dof
software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/TuxUtils.dcu
software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/TuxUtils.pas
software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/Unit1.dcu
software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/Unit1.dfm
software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/Unit1.pas
Log:
* Retrieving all needed status except 'activity'.
Modified:
software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/Project2.dof
===================================================================
---
software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/Project2.dof
2009-07-23 09:45:58 UTC (rev 5140)
+++
software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/Project2.dof
2009-07-23 09:53:48 UTC (rev 5141)
@@ -46,7 +46,7 @@
PackageDLLOutputDir=
PackageDCPOutputDir=
SearchPath=
-Packages=
+Packages=vcl;rtl;vclx;VclSmp;vclshlctrls;Python_d6;PNG_D6;PngComponentsD6;PngComponentsD6D;acntD6;Package4;AdvCircularProgressPkgD6;EmbeddedWebBrowser_D6
Conditionals=
DebugSourceDirs=
UsePackages=0
Modified:
software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/TuxUtils.dcu
===================================================================
(Binary files differ)
Modified:
software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/TuxUtils.pas
===================================================================
---
software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/TuxUtils.pas
2009-07-23 09:45:58 UTC (rev 5140)
+++
software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/TuxUtils.pas
2009-07-23 09:53:48 UTC (rev 5141)
@@ -5,14 +5,25 @@
uses
ShellAPI, Registry, SysUtils, Variants, Classes, TlHelp32, LibXmlParser,
LibXmlComps, TXmlThread, ComCtrls, StdCtrls, OleCtrls, Controls, Windows,
- EmbeddedWB;
+ EmbeddedWB, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
+ IdHTTP, dialogs;
+ function DownloadHTTP(const AUrl : string): string;
+ function parseStates(aString : string): TStringList;
+ function getStates(): TStringList;
+
function isTuxDroidServerStarted() : boolean;
- function isDongleConnected(ApplicationExeName : String; var EmbeddedWB1 :
TEmbeddedWB) : boolean;
+ function isDongleConnected() : boolean;
+ function isSoundOn() : boolean;
+ function isRadioConnected() : boolean;
+ function isOnActivity() : boolean;
+
var
- XmlScanner1: TXmlScanner;
+ XmlScanner1 : TXmlScanner;
+ GlobalState : TStringList;
+
implementation
@@ -48,51 +59,131 @@
end;
+{### This function download a file from internet and store it onto a string
###}
+function DownloadHTTP(const AUrl : string) : string;
+var
+ output : TMemoryStream;
+ c : char;
+begin
-//Return the dongle connection state.
-function isDongleConnected(ApplicationExeName : String; var EmbeddedWB1 :
TEmbeddedWB) : boolean;
+ output := TMemoryStream.Create;
+ result := '';
+
+ with TIdHTTP.Create(nil) do
+ try
+ try
+ Get(AUrl, output);
+
+ if output <> nil then
+ begin
+ output.Position := 0;
+ repeat
+ output.Read(c, 1);
+ output.Seek(1, output.Position);
+
+ if c <> #0 then
+ result := result + c;
+
+ until output.Position = output.Size;
+ output.Free;
+ end;
+ except
+ On e : Exception do
+ result := '';
+ end;
+ finally
+ Free;
+ end;
+
+end;
+
+
+{####### This function parse a string to retrieve global informations ######}
+function parseStates(aString : string) : TStringList;
var
- targetDir : String;
- downloaded : boolean;
- xmlFile : TFileName;
- xmlThread : TXmlThreadObject;
+ beginPos, endPos : Integer;
+begin
-const
- command =
'http://127.0.0.1:270/0/status/request_one?status_name=radio_state';
- fileName = 'radio.xml';
+ //Searching for dongle state ( <dongleState> )
+ beginPos := Pos('<dongleState>', aString) + Length('<dongleState>');
+ endPos := Pos('</dongleState>', aString);
+ result[1] := Copy(aString, beginPos, endPos - beginPos);
+ //Searching for radio state ( <radioState> )
+ beginPos := Pos('<radioState>', aString) + Length('<radioState>');
+ endPos := Pos('</radioState>', aString);
+ result[2] := Copy(aString, beginPos, endPos - beginPos);
+
+ //Searching for sound state ( <soundState> )
+ beginPos := Pos('<soundState>', aString) + Length('<soundState>');
+ endPos := Pos('</soundState>', aString);
+ result[3] := Copy(aString, beginPos, endPos - beginPos);
+
+ //Searching for activity state ( <gadgets> )
+ //beginPos := Pos('<alerts>', aString) + Length('<alerts>');
+ result[4] := 'false';
+end;
+
+
+{#### Return parsed states ####}
+function getStates() : TStringList;
+var
+ res : string;
begin
+ res :=
TuxUtils.DownloadHTTP('http://127.0.0.1:270/0/wi_user_01/get_states?');
- targetDir := ExtractFilePath(ApplicationExeName);
- downloaded := false;
- boolValue := false;
+ if res <> '' then
+ begin
+ GlobalState := TuxUtils.parseStates(res);
+ result := GlobalState;
+ end
+ else
+ begin
+ GlobalState := nil;
+ result := nil;
+ end;
- //Checking if file exists and remove it.
- if FileExists(targetDir + '\' + fileName) then
- begin
- DeleteFile(fileName);
- end;
+end;
- Try
- downloaded := EmbeddedWB1.DownloadFile(command, targetDir + '\' +
fileName);
- Except
- result := false;
- end;
- //Getting result.
- if downloaded then
- begin
- xmlFile := targetDir + '\' + fileName;
+{#### Return the dongle state ####}
+function isDongleConnected() : boolean;
+begin
+ if Assigned(GlobalState) then
+ result := StrToBool(GlobalState[1])
+ else
+ result := false;
+end;
- xmlScanner1 := TXmlScanner.Create(nil);
- XmlScanner1.LoadFromFile(xmlFile);
- xmlThread := TXmlThreadObject.create(XmlScanner1);
- xmlThread.Resume;
- boolValue := xmlThread.getResult();
- end;
- DeleteFile(PChar(xmlFile));
- Result := boolValue;
+{#### Return the sound state ####}
+function isSoundOn() : boolean;
+begin
+ if Assigned(GlobalState) then
+ result := StrToBool(GlobalState[3])
+ else
+ result := false;
end;
+
+{#### Return the radio connection state ####}
+function isRadioConnected() : boolean;
+begin
+ if Assigned(GlobalState) then
+ result := StrToBool(GlobalState[2])
+ else
+ result := false;
+end;
+
+
+{#### Return true if a gadget is in activity ####}
+function isOnActivity() : boolean;
+begin
+ if Assigned(GlobalState) then
+ result := StrToBool(GlobalState[4])
+ else
+ result := false;
+end;
+
+
end.
Modified:
software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/Unit1.dcu
===================================================================
(Binary files differ)
Modified:
software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/Unit1.dfm
===================================================================
---
software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/Unit1.dfm
2009-07-23 09:45:58 UTC (rev 5140)
+++
software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/Unit1.dfm
2009-07-23 09:53:48 UTC (rev 5141)
@@ -117,10 +117,10 @@
end
end
object ImageList1: TImageList
- Left = 72
+ Left = 40
Top = 8
Bitmap = {
- 494C010106000900040010001000FFFFFFFFFF00FFFFFFFFFFFFFFFF424D3600
+ 494C010106000900040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
0000000000003600000028000000400000003000000001002000000000000030
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
@@ -251,280 +251,288 @@
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
- 000000000000000000002D1307FF2D1307FF2D1307FF180B05FF0F252BFF0940
- 4FFF404040FF0000000000000000000000000000000000000000000000000000
+ 000000000000202020FF000000FF000000FF202020FF00000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000FEFEFE0000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
- 0000592811FF70422CFF997868FFAD9387FFAD9387FF070F11FF1ABFEDFF1CCC
- FDFF17A6CEFF13292FFF00000000000000000000000000000000000000000000
+ 0000101010FF06404FFF11B3DDFF11B3DDFF0A667FFF000000FF505050FF0000
+ 0000000000000000000000000000000000000000000000000000000000000000
000000000000CDCDCD00B6B6B600F3F3F3000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000987868FF6535
- 1DFFA3724AFFD8B48DFFD4AD82FFE0C3A4FF989089FF0E667FFF1CCCFDFF1CCC
- FDFF1CCCFDFF19B3DDFF111D1FFF000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000006060
+ 60FF05333FFF13CCFDFF13CCFDFF13CCFDFF13CCFDFF0FA6CEFF021A20FF3030
+ 30FF000000000000000000000000000000000000000000000000000000000000
0000000000005E5E5E001E1E1E00C8C8C8000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
- 00000000000000000000000000000000000000000000A38577FF683315FFD3B7
- 9DFFDCBC99FFC18749FFC18749FFC18749FF1A1E19FF1ABFEDFF1CCCFDFF1CCC
- FDFF1CCCFDFF1CCCFDFF1599BEFF606060FF000000000000000000000000DBDB
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00FF0E99BEFF13CCFDFF13CCFDFF13CCFDFF13CCFDFF13CCFDFF12BFEDFF0426
+ 2FFF303030FF000000000000000000000000000000000000000000000000DBDB
DB0085858500191919000000000057575700B5B5B50000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
- 000000000000000000000000000000000000000000005B270EFFAE753EFFE0C3
- A4FFFBF8F4FFE4CBAFFFC58F54FF79542EFF0E667FFF1CCCFDFF1CCCFDFF1CCC
- FDFF1CCCFDFF1CCCFDFF1CCCFDFF05262FFF0000000000000000000000008585
+ 000000000000000000000000000000000000000000000000000000000000021A
+ 20FF13CCFDFF13CCFDFF13CCFDFF13CCFDFF13CCFDFF0FA6CEFF13CCFDFF12BF
+ EDFF010D10FF606060FF00000000000000000000000000000000000000008585
85000000000000000000000000000000000039393900DFDFDF00000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
- 000000000000000000000000000000000000987868FF814B24FFC58F54FFFBF8
- F4FFFFFFFFFFFFFFFFFFE0C3A4FF48331BFF17A6CEFF1CCCFDFF1CCCFDFF1CCC
- FDFF1CCCFDFF1CCCFDFF1CCCFDFF0C596FFF00000000D3D3D300707070002525
+ 0000000000000000000000000000000000000000000000000000202020FF0B73
+ 8EFF08596FFF0FA6CEFF13CCFDFF13CCFDFF074D5FFF05333FFF13CCFDFF13CC
+ FDFF0FA6CEFF000000FF000000000000000000000000D3D3D300707070002525
2500000000000000000000000000000000000A0A0A004C4C4C00AEAEAE000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
- 00000000000000000000000000000000000065341DFFAE753EFFD1A577FFFFFF
- FFFFFFFFFFFFFFFFFFFFDCBC99FF3C2A17FF19B3DDFF1CCCFDFF1CCCFDFF1CCC
- FDFF1CCCFDFF17A6CEFF138CAEFF0C2228FF00000000ACACAC00020202000000
+ 0000000000000000000000000000000000000000000000000000010D10FF12BF
+ EDFF11B3DDFF05333FFF0D8CAEFF08596FFF000000FF05333FFF13CCFDFF13CC
+ FDFF13CCFDFF0A667FFF202020FF0000000000000000ACACAC00020202000000
000000000000141414001B1B1B000707070000000000000000004C4C4C00DFDF
DF00000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000005B270EFFC18749FFC99660FFFFFF
- FFFFF7F0E8FFD8B48DFFC18749FF956D42FF132930FF09404FFF303030FF1329
- 30FF09404FFF302212FF472C16FF241007FF00000000AFAFAF00090909000000
+ 00000000000000000000000000000000000000000000202020FF0A667FFF13CC
+ FDFF0A667FFF000000FF000000FF000000FF000000FF05333FFF13CCFDFF13CC
+ FDFF13CCFDFF12BFEDFF010D10FF0000000000000000AFAFAF00090909000000
00000000000080808000B7B7B7002626260000000000000000000A0A0A003939
3900B5B5B5000000000000000000FEFEFE000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000005B270EFFC99660FFF7F0E8FFE8D2
- BBFFD1A577FFC18749FFC18749FFE0C3A4FFEFEFEFFFEFEFEFFFFFFFFFFFFFFF
- FFFFEFEFEFFFC58F54FF8E572CFF2D1307FF00000000ACACAC00060606000000
+ 00000000000000000000000000000000000000000000010D10FF12BFEDFF13CC
+ FDFF0A667FFF000000FF000000FF000000FF000000FF05333FFF13CCFDFF13CC
+ FDFF13CCFDFF13CCFDFF08596FFF505050FF00000000ACACAC00060606000000
000042424200D3D3D300000000007A7A7A001E1E1E0000000000000000000000
00005C5C5C00CFCFCF00F5F5F500000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000005B270EFFD6B695FFF7F0E8FFF0E1
- D2FFC18749FFC18749FFC18749FFD4AD82FFFFFFFFFFF7F0E8FFFBF8F4FFFFFF
- FFFFFFFFFFFFF3E9DDFF814B24FF2D1307FF00000000A3A3A300000000004E4E
+ 000000000000000000000000000000000000505050FF074D5FFF13CCFDFF13CC
+ FDFF0A667FFF000000FF000000FF000000FF000000FF05333FFF13CCFDFF13CC
+ FDFF13CCFDFF13CCFDFF0E99BEFF101010FF00000000A3A3A300000000004E4E
4E00E7E7E7000000000000000000FDFDFD00A8A8A8000C0C0C00000000000000
0000000000002B2B2B00BBBBBB00000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
- 000000000000000000000000000000000000794F3BFFB29077FFFFFFFFFFFBF8
- F4FFC58F54FFC18749FFC18749FFDCBC99FFFBF8F4FFF3E9DDFFFFFFFFFFFFFF
- FFFFFBF8F4FFFFFFFFFF65351DFF0000000000000000C8C8C80065656500AAAA
+ 000000000000000000000000000000000000101010FF0D8CAEFF13CCFDFF13CC
+ FDFF0A667FFF000000FF000000FF000000FF000000FF010D10FF0FA6CEFF13CC
+ FDFF13CCFDFF13CCFDFF13CCFDFF000000FF00000000C8C8C80065656500AAAA
AA0000000000000000000000000000000000EDEDED007C7C7C002C2C2C000000
00000000000000000000ABABAB00000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
- 000000000000000000000000000000000000AC9286FF764830FFFBF8F4FFFFFF
- FFFFE8D2BBFFCD9E6BFFC18749FFC58F54FFECDAC6FFFFFFFFFFFFFFFFFFFFFF
- FFFFFFFFFFFFC2AEA5FF51222AFF0000000000000000FEFEFE00FBFBFB00FDFD
+ 000000000000000000000000000000000000000000FF12BFEDFF13CCFDFF13CC
+ FDFF11B3DDFF0E99BEFF0E99BEFF08596FFF000000FF05333FFF08596FFF0FA6
+ CEFF13CCFDFF13CCFDFF13CCFDFF000000FF00000000FEFEFE00FBFBFB00FDFD
FD00000000000000000000000000000000000000000000000000999999000101
01000000000010101000B1B1B100000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
- 000000000000000000000000000000000000000000004F220CFFA98C7BFFFFFF
- FFFFFFFFFFFFF7F0E8FFCD9E6BFFC18749FFDCBC99FFE8D2BBFFFFFFFFFFFFFF
- FFFFDCCFC6FF65351DFF00000000000000000000000000000000000000000000
+ 000000000000000000000000000000000000000000FF13CCFDFF13CCFDFF13CC
+ FDFF13CCFDFF13CCFDFF13CCFDFF13CCFDFF08596FFF05333FFF13CCFDFF0859
+ 6FFF0FA6CEFF13CCFDFF0E99BEFF000000FF0000000000000000000000000000
0000000000000000000000000000FEFEFE000000000000000000E4E4E4008E8E
8E001D1D1D0000000000A6A6A600000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000552410FFA98C
- 7BFFECDAC6FFFBF8F4FFFBF8F4FFD4AD82FFC18749FFC58F54FFE0C3A4FFBD93
- 6BFF612D12FF381808FF00000000000000000000000000000000000000000000
+ 000000000000000000000000000000000000000000FF0E99BEFF13CCFDFF13CC
+ FDFF13CCFDFF13CCFDFF13CCFDFF13CCFDFF13CCFDFF0FA6CEFF13CCFDFF0C80
+ 9EFF08596FFF0A667FFF010D10FF606060FF0000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00007373730014141400ACACAC00000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000004F22
- 0CFF6E3919FFAE896CFFD2AE8AFFC18749FFC18749FFAE753EFF814B24FF5B27
- 0EFFA38577FF0000000000000000000000000000000000000000000000000000
+ 000000000000000000000000000000000000707070FF021A20FF0E99BEFF11B3
+ DDFF0A667FFF010D10FF000000FF074D5FFF0FA6CEFF0D8CAEFF05333FFF1010
+ 10FF404040FF404040FF7F7F7FFF000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000D5D5D500B2B2B200E4E4E400000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
+ 00000000000000000000000000000000000000000000505050FF000000FF0000
+ 00FF202020FF0000000000000000404040FF000000FF000000FF505050FF0000
0000000000000000000000000000000000000000000000000000000000000000
- 0000AC9286FF794F3BFF5B270EFF5B270EFF5B270EFF65341DFF987868FF0000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
+ 000000000000404040FF000000FF000000FF505050FF00000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
- 00000000000000000000101010FF000000FF000000FF606060FF000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 00000000000000000000010101FF000000FF000000FF242424FF000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 00000000000000000000000000FF000000FF000000FF0E0E0EFF000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000FF000000FF000000FF050505FF000000000000
0000000000000000000000000000000000000000000000000000000000000000
- 000000000000010D10FF0C809EFF13CCFDFF0E99BEFF05333FFF101010FF0000
+ 00000000000000000000101010FF000000FF000000FF606060FF000000000000
0000000000000000000000000000000000000000000000000000000000000000
- 000000000000000D00FF008100FF00CF00FF009B00FF003400FF010101FF0000
+ 00000000000000000000101010FF000000FF000000FF606060FF000000000000
0000000000000000000000000000000000000000000000000000000000000000
- 000000000000001010FF009F9FFF00FFFFFF00BFBFFF004040FF000000FF0000
+ 0000303030FF09395BFF188FE3FF188FE3FF0D4D79FF020A0FFF707070FF0000
0000000000000000000000000000000000000000000000000000000000000000
000000000000010010FF0C009EFF1300FDFF0E00BEFF05003FFF000000FF0000
0000000000000000000000000000000000000000000000000000000000000000
- 0000202020FF0B738EFF13CCFDFF13CCFDFF13CCFDFF0FC2CEFF0A667FFF0000
+ 000000000000001010FF009F9FFF00FFFFFF00BFBFFF004040FF101010FF0000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 000000000000010D10FF0C809EFF13CCFDFF0E99BEFF05333FFF101010FF0000
+ 0000000000000000000000000000000000000000000000000000000000007F7F
+ 7FFF06283DFF189DF3FF189DF3FF189DF3FF189DF3FF158AD5FF041E2EFF6060
+ 60FF000000000000000000000000000000000000000000000000000000000000
+ 0000000000FF0B008EFF1300FDFF1300FDFF1300FDFF1300FDFF0A007FFF0000
00FF000000000000000000000000000000000000000000000000000000000000
- 0000040404FF007400FF00CF00FF00CF00FF00CF00FF00CF00FF006800FF0000
+ 0000202020FF008F8FFF00FFFFFF02F1F1FF07C5C6FF02F1F1FF008080FF0000
00FF000000000000000000000000000000000000000000000000000000000000
- 0000010101FF008F8FFF00FFFFFF02F1F1FF07C5C6FF02F1F1FF008080FF0000
- 00FF000000000000000000000000000000000000000000000000000000000000
- 0000000000FF0B008EFF1300FDFF1300FDFF1300FDFF1300FDFF0A007FFF0000
- 00FF000000000000000000000000000000000000000000000000000000000000
- 0000021A20FF13CCFDFF13CCFDFF13CCFDFF11C5DDFF009500FF0CB79EFF0C80
+ 0000202020FF0B738EFF13CCFDFF13CCFDFF13CCFDFF0FC2CEFF0A667FFF0000
+ 00FF000000000000000000000000000000000000000000000000000000001010
+ 10FF1284C6FF16A3F4FF16A3F4FF16A3F4FF16A3F4FF16A3F4FF1599E4FF041F
+ 2EFF606060FF0000000000000000000000000000000000000000000000000000
+ 0000020020FF1300FDFF1300FDFF1300FDFF1300FDFF1300FDFF1300FDFF0C00
9EFF000000FF0000000000000000000000000000000000000000000000000000
- 0000001A00FF00CF00FF00CF00FF00CF00FF00CF00FF00CF00FF00CF00FF0081
- 00FF000000FF0000000000000000000000000000000000000000000000000000
0000002020FF00FFFFFF00FFFFFF116E70FF1B171AFF116E70FF00FFFFFF009F
9FFF000000FF0000000000000000000000000000000000000000000000000000
- 0000020020FF1300FDFF1300FDFF1300FDFF1300FDFF1300FDFF1300FDFF0C00
- 9EFF000000FF0000000000000000000000000000000000000000000000004040
+ 0000021A20FF13CCFDFF13CCFDFF13CCFDFF11C5DDFF009500FF0CB79EFF0C80
+ 9EFF000000FF0000000000000000000000000000000000000000000000000420
+ 2EFF15A8F4FF15A8F4FF15A8F4FF15A8F4FF15A8F4FF15A8F4FF15A8F4FF139D
+ E5FF04202EFF7F7F7FFF00000000000000000000000000000000000000000101
+ 01FF0A007FFF1300FDFF1300FDFF1300FDFF1300FDFF1300FDFF1300FDFF1300
+ FDFF08006FFF000000FF00000000000000000000000000000000000000004040
+ 40FF008080FF00FFFFFF00FFFFFF116E70FF1B171AFF116E70FF00FFFFFF00FF
+ FFFF007070FF101010FF00000000000000000000000000000000000000004040
40FF0A667FFF13CCFDFF13CCFDFF13CCFDFF0EBEBEFF009500FF07AA5FFF13CC
- FDFF08596FFF101010FF00000000000000000000000000000000000000001010
- 10FF006800FF00CF00FF00CF00FF00CF00FF00CF00FF00CF00FF00CF00FF00CF
- 00FF005B00FF010101FF00000000000000000000000000000000000000000404
- 04FF008080FF00FFFFFF00FFFFFF116E70FF1B171AFF116E70FF00FFFFFF00FF
- FFFF007070FF000000FF00000000000000000000000000000000000000000101
- 01FF0A007FFF1300FDFF1300FDFF1300FDFF1300FDFF1300FDFF1300FDFF1300
- FDFF08006FFF000000FF00000000000000000000000000000000000000000000
+ FDFF08596FFF101010FF00000000000000000000000000000000404040FF0C6C
+ 99FF13ADF5FF13ADF5FF13ADF5FF13ADF5FF13ADF5FF13ADF5FF13ADF5FF13AD
+ F5FF0F8DC7FF000000FF00000000000000000000000000000000000000000000
+ 00FF1100DDFF1300FDFF1300FDFF1300FDFF1300FDFF1300FDFF1300FDFF1300
+ FDFF1300FDFF05003FFF050505FF000000000000000000000000000000000000
+ 00FF00DFDFFF00FFFFFF00FFFFFF00FFFFFF07C5C6FF00FFFFFF00FFFFFF00FF
+ FFFF00FFFFFF004040FF606060FF000000000000000000000000000000000000
00FF11B3DDFF13CCFDFF0AB17FFF0FC2CEFF0DBBAEFF009500FF049F2FFF13CC
- FDFF13CCFDFF05333FFF606060FF000000000000000000000000000000000000
- 00FF00B500FF00CF00FF00CF00FF00CF00FF00CF00FF00CF00FF00CF00FF00CF
- 00FF00CF00FF003400FF242424FF000000000000000000000000000000000000
- 00FF00DFDFFF00FFFFFF00FFFFFF00FFFFFF07C5C6FF00FFFFFF00FFFFFF00FF
- FFFF00FFFFFF004040FF0E0E0EFF000000000000000000000000000000000000
- 00FF1100DDFF1300FDFF1300FDFF1300FDFF1300FDFF1300FDFF1300FDFF1300
- FDFF1300FDFF05003FFF050505FF000000000000000000000000404040FF0546
+ FDFF13CCFDFF05333FFF606060FF00000000000000000000000002161FFF12B2
+ F6FF12B2F6FF12B2F6FF12B2F6FF12B2F6FF12B2F6FF12B2F6FF12B2F6FF12B2
+ F6FF12B2F6FF09597BFF404040FF000000000000000000000000010101FF0700
+ 5FFF1300FDFF1300FDFF1300FDFF1300FDFF1300FDFF1300FDFF1300FDFF1300
+ FDFF1300FDFF1100DDFF000000FF000000000000000000000000404040FF0060
+ 60FF00FFFFFF00FFFFFF00FFFFFF03E2E2FF0E8B8DFF03E2E2FF00FFFFFF00FF
+ FFFF00FFFFFF00DFDFFF000000FF000000000000000000000000404040FF0546
3FFF0EBEBEFF0EBEBEFF009500FF07AA5FFF0AB17FFF009500FF009500FF0FC2
- CEFF0EBEBEFF0CA59EFF000000FF000000000000000000000000101010FF004E
- 00FF00CF00FF00CF00FF00CF00FF00CF00FF00CF00FF00CF00FF00CF00FF00CF
- 00FF00CF00FF00B500FF000000FF000000000000000000000000040404FF0060
- 60FF00FFFFFF00FFFFFF00FFFFFF03E2E2FF0E8B8DFF03E2E2FF00FFFFFF00FF
- FFFF00FFFFFF00DFDFFF000000FF000000000000000000000000010101FF0700
- 5FFF1300FDFF1300FDFF1300FDFF1300FDFF1300FDFF1300FDFF1300FDFF1300
- FDFF1300FDFF1100DDFF000000FF000000000000000000000000000000FF0082
+ CEFF0EBEBEFF0CA59EFF000000FF0000000000000000404040FF0A739AFF10B7
+ F7FF10B7F7FF10B7F7FF10B7F7FF10B7F7FF10B7F7FF10B7F7FF10B7F7FF10B7
+ F7FF10B7F7FF0FACE7FF010C0FFF000000000000000000000000000000FF1100
+ DDFF1300FDFF1300FDFF1300FDFF1300FDFF1300FDFF1300FDFF1300FDFF1300
+ FDFF1300FDFF1300FDFF07005FFF050505FF0000000000000000000000FF00DF
+ DFFF00FFFFFF00FFFFFF00FFFFFF08B7B7FF1B171AFF08B7B7FF00FFFFFF00FF
+ FFFF00FFFFFF00FFFFFF006060FF606060FF0000000000000000000000FF0082
00FF009500FF009500FF009500FF019810FF08AD6FFF009500FF009500FF0095
- 00FF009500FF009500FF003800FF606060FF0000000000000000000000FF00B5
- 00FF00CF00FF00CF00FF00CF00FF00CF00FF00CF00FF00CF00FF00CF00FF00CF
- 00FF00CF00FF00CF00FF004E00FF242424FF0000000000000000000000FF00DF
- DFFF00FFFFFF00FFFFFF00FFFFFF08B7B7FF1B171AFF08B7B7FF00FFFFFF00FF
- FFFF00FFFFFF00FFFFFF006060FF0E0E0EFF0000000000000000000000FF1100
- DDFF1300FDFF1300FDFF1300FDFF1300FDFF1300FDFF1300FDFF1300FDFF1300
- FDFF1300FDFF1300FDFF07005FFF050505FF00000000707070FF06494FFF0EBE
+ 00FF009500FF009500FF003800FF606060FF00000000010C10FF0FBDF8FF0FBD
+ F8FF0FBDF8FF0FBDF8FF0FBDF8FF0FBDF8FF0FBDF8FF0FBDF8FF0FBDF8FF0FBD
+ F8FF0FBDF8FF0FBDF8FF06536CFF606060FF000000000A0A0AFF07005FFF1300
+ FDFF1300FDFF1300FDFF1300FDFF1300FDFF1300FDFF1300FDFF1300FDFF1300
+ FDFF1300FDFF1300FDFF0D00AEFF000000FF00000000707070FF006060FF00FF
+ FFFF00FFFFFF00FFFFFF00FFFFFF0E8B8DFF1B171AFF0E8B8DFF00FFFFFF00FF
+ FFFF00FFFFFF00FFFFFF00AFAFFF202020FF00000000707070FF06494FFF0EBE
BEFF08AD6FFF009500FF009500FF009500FF019810FF05A33FFF009500FF0095
- 00FF0EBEBEFF13CCFDFF0D8CAEFF202020FF00000000313131FF004E00FF00CF
- 00FF00CF00FF00CF00FF00CF00FF00CF00FF00CF00FF00CF00FF00CF00FF00CF
- 00FF00CF00FF00CF00FF008E00FF040404FF00000000161616FF006060FF00FF
+ 00FF0EBEBEFF13CCFDFF0D8CAEFF202020FF707070FF06556DFF0DC2F8FF0DC2
+ F8FF0DC2F8FF0DC2F8FF0DC2F8FF0DC2F8FF0DC2F8FF0DC2F8FF0DC2F8FF0DC2
+ F8FF0DC2F8FF0DC2F8FF0B9DCAFF303030FF00000000000000FF0D00AEFF1300
+ FDFF1300FDFF1300FDFF1300FDFF1300FDFF1300FDFF1300FDFF1300FDFF1300
+ FDFF1300FDFF1300FDFF1200EDFF000000FF00000000202020FF00AFAFFF00FF
FFFF00FFFFFF00FFFFFF00FFFFFF0E8B8DFF1B171AFF0E8B8DFF00FFFFFF00FF
- FFFF00FFFFFF00FFFFFF00AFAFFF010101FF000000000A0A0AFF07005FFF1300
+ FFFF00FFFFFF00FFFFFF00EFEFFF000000FF00000000202020FF0D8CAEFF13CC
+ FDFF11C5DDFF009500FF049F2FFF009500FF009500FF07AA5FFF049F2FFF0095
+ 00FF12C9EDFF13CCFDFF12BFEDFF000000FF303030FF0995BBFF0CC7F9FF0CC7
+ F9FF0CC7F9FF0CC7F9FF0CC7F9FF0CC7F9FF0CC7F9FF0CC7F9FF0CC7F9FF0CC7
+ F9FF0CC7F9FF0CC7F9FF0CC7F9FF000000FF00000000000000FF1200EDFF1300
FDFF1300FDFF1300FDFF1300FDFF1300FDFF1300FDFF1300FDFF1300FDFF1300
- FDFF1300FDFF1300FDFF0D00AEFF000000FF00000000202020FF0D8CAEFF13CC
- FDFF11C5DDFF009500FF049F2FFF009500FF009500FF07AA5FFF049F2FFF0095
- 00FF12C9EDFF13CCFDFF12BFEDFF000000FF00000000040404FF008E00FF00CF
- 00FF00CF00FF00CF00FF00CF00FF00CF00FF00CF00FF00CF00FF00CF00FF00CF
- 00FF00CF00FF00CF00FF00C200FF000000FF00000000010101FF00AFAFFF00FF
+ FDFF1300FDFF1300FDFF1300FDFF000000FF00000000000000FF00EFEFFF00FF
FFFF00FFFFFF00FFFFFF00FFFFFF0E8B8DFF1B171AFF0E8B8DFF00FFFFFF00FF
- FFFF00FFFFFF00FFFFFF00EFEFFF000000FF00000000000000FF0D00AEFF1300
+ FFFF00FFFFFF00FFFFFF00FFFFFF000000FF00000000000000FF12BFEDFF13CC
+ FDFF13CCFDFF029C20FF07AA5FFF06A64FFF009500FF0AB17FFF07AA5FFF029C
+ 20FF13CCFDFF13CCFDFF13CCFDFF000000FF000000FF0ACCFAFF0ACCFAFF0ACC
+ FAFF0ACCFAFF0ACCFAFF0ACCFAFF0ACCFAFF0ACCFAFF0ACCFAFF0ACCFAFF0ACC
+ FAFF0ACCFAFF0ACCFAFF0ACCFAFF000000FF00000000000000FF1300FDFF1300
FDFF1300FDFF1300FDFF1300FDFF1300FDFF1300FDFF1300FDFF1300FDFF1300
- FDFF1300FDFF1300FDFF1200EDFF000000FF00000000000000FF12BFEDFF13CC
- FDFF13CCFDFF029C20FF07AA5FFF06A64FFF009500FF0AB17FFF07AA5FFF029C
- 20FF13CCFDFF13CCFDFF13CCFDFF000000FF00000000000000FF00C200FF00CF
- 00FF00CF00FF00CF00FF00CF00FF00CF00FF00CF00FF00CF00FF00CF00FF00CF
- 00FF00CF00FF00CF00FF00CF00FF000000FF00000000000000FF00EFEFFF00FF
+ FDFF1300FDFF1300FDFF1200EDFF000000FF00000000000000FF00FFFFFF00FF
FFFF00FFFFFF00FFFFFF00FFFFFF0E8B8DFF1B171AFF0E8B8DFF00FFFFFF00FF
- FFFF00FFFFFF00FFFFFF00FFFFFF000000FF00000000000000FF1200EDFF1300
- FDFF1300FDFF1300FDFF1300FDFF1300FDFF1300FDFF1300FDFF1300FDFF1300
- FDFF1300FDFF1300FDFF1300FDFF000000FF00000000000000FF13CCFDFF13CC
+ FFFF00FFFFFF00FFFFFF00EFEFFF000000FF00000000000000FF13CCFDFF13CC
FDFF13CCFDFF11C5DDFF12C9EDFF0CB79EFF009500FF0CB79EFF12C9EDFF11C5
- DDFF13CCFDFF13CCFDFF12BFEDFF000000FF00000000000000FF00CF00FF00CF
- 00FF00CF00FF00CF00FF00CF00FF00CF00FF00CF00FF00CF00FF00CF00FF00CF
- 00FF00CF00FF00CF00FF00C200FF000000FF00000000000000FF00FFFFFF00FF
- FFFF00FFFFFF00FFFFFF00FFFFFF0E8B8DFF1B171AFF0E8B8DFF00FFFFFF00FF
- FFFF00FFFFFF00FFFFFF00EFEFFF000000FF00000000000000FF1300FDFF1300
- FDFF1300FDFF1300FDFF1300FDFF1300FDFF1300FDFF1300FDFF1300FDFF1300
- FDFF1300FDFF1300FDFF1200EDFF000000FF00000000000000FF11B3DDFF13CC
+ DDFF13CCFDFF13CCFDFF12BFEDFF000000FF000000FF09D1FBFF09D1FBFF09D1
+ FBFF09D1FBFF09D1FBFF09D1FBFF09D1FBFF09D1FBFF09D1FBFF09D1FBFF09D1
+ FBFF09D1FBFF09D1FBFF08B7DBFF101010FF00000000000000FF1100DDFF1300
+ FDFF1300FDFF1300FDFF1300FDFF1300FDFF1300FDFF1300FDFF1300FDFF1100
+ DDFF0E00BEFF0D00AEFF04002FFF010101FF00000000000000FF00DFDFFF00FF
+ FFFF00FFFFFF00FFFFFF00FFFFFF03E2E2FF07C5C6FF03E2E2FF00FFFFFF00DF
+ DFFF00BFBFFF00AFAFFF003030FF404040FF00000000000000FF11B3DDFF13CC
FDFF13CCFDFF13CCFDFF13CCFDFF11C5DDFF05A33FFF0FC2CEFF13CCFDFF11B3
- DDFF0E99BEFF0D8CAEFF04262FFF404040FF00000000000000FF00B500FF00CF
- 00FF00CF00FF00CF00FF00CF00FF00CF00FF00CF00FF00CF00FF00CF00FF00B5
- 00FF009B00FF008E00FF002700FF101010FF00000000000000FF00DFDFFF00FF
- FFFF00FFFFFF00FFFFFF00FFFFFF03E2E2FF07C5C6FF03E2E2FF00FFFFFF00DF
- DFFF00BFBFFF00AFAFFF003030FF040404FF00000000000000FF1100DDFF1300
- FDFF1300FDFF1300FDFF1300FDFF1300FDFF1300FDFF1300FDFF1300FDFF1100
- DDFF0E00BEFF0D00AEFF04002FFF010101FF00000000505050FF04262FFF12BF
+ DDFF0E99BEFF0D8CAEFF04262FFF404040FF202020FF05A0BDFF07D6FCFF07D6
+ FCFF07D6FCFF07D6FCFF07D6FCFF07D6FCFF07D6FCFF07D6FCFF07D6FCFF0593
+ ADFF046B7EFF046B7EFF011B1FFF7F7F7FFF00000000030303FF04002FFF1200
+ EDFF1100DDFF07005FFF010010FF020020FF0E00BEFF1200EDFF0B008EFF0100
+ 10FF000000FF010101FF050505FF0000000000000000505050FF003030FF00EF
+ EFFF00DFDFFF006060FF001010FF002020FF00BFBFFF00EFEFFF008F8FFF0010
+ 10FF303030FF404040FF606060FF0000000000000000505050FF04262FFF12BF
EDFF11B3DDFF074D5FFF010D10FF021A20FF0E99BEFF12BFEDFF0B738EFF010D
- 10FF303030FF404040FF606060FF0000000000000000191919FF002700FF00C2
- 00FF00B500FF004E00FF000D00FF001A00FF009B00FF00C200FF007400FF000D
- 00FF090909FF101010FF242424FF0000000000000000080808FF003030FF00EF
- EFFF00DFDFFF006060FF001010FF002020FF00BFBFFF00EFEFFF008F8FFF0010
- 10FF020202FF040404FF0E0E0EFF0000000000000000030303FF04002FFF1200
- EDFF1100DDFF07005FFF010010FF020020FF0E00BEFF1200EDFF0B008EFF0100
- 10FF000000FF010101FF050505FF000000000000000000000000404040FF0000
+ 10FF303030FF404040FF606060FF000000007F7F7FFF01292FFF05C0DDFF05CD
+ ECFF037B8EFF011B20FF000E10FF036D7EFF05CDECFF05C0DDFF02444FFF1010
+ 10FF7F7F7FFF707070FF00000000000000000000000000000000010101FF0000
+ 00FF000000FF010101FF000000000A0A0AFF000000FF000000FF000000FF0000
+ 0000000000000000000000000000000000000000000000000000404040FF0000
00FF000000FF404040FF00000000707070FF000000FF000000FF202020FF0000
- 0000000000000000000000000000000000000000000000000000101010FF0000
- 00FF000000FF101010FF00000000313131FF000000FF000000FF040404FF0000
- 0000000000000000000000000000000000000000000000000000040404FF0000
- 00FF000000FF040404FF00000000161616FF000000FF000000FF010101FF0000
- 0000000000000000000000000000000000000000000000000000010101FF0000
- 00FF000000FF010101FF000000000A0A0AFF000000FF000000FF000000FF0000
+ 0000000000000000000000000000000000000000000000000000404040FF0000
+ 00FF000000FF404040FF00000000707070FF000000FF000000FF202020FF0000
+ 00000000000000000000000000000000000000000000707070FF000000FF0000
+ 00FF404040FF0000000000000000505050FF000000FF101010FF606060FF0000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000424D3E000000000000003E000000
2800000040000000300000000100010000000000800100000000000000000000
000000000000000000000000FFFFFF0000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
- 00000000000000000000000000000000FC07FF7F00000000F003F8FF00000000
- C001F8FF000000008000E07F000000008000E03F000000000000801F00000000
- 0000800F00000000000080060000000000008201000000000000860100000000
- 00018F010000000000018FC1000000008003FEC100000000C003FFF100000000
- E007FFF100000000F01FFFFF00000000FC3FFC3FFC3FFC3FF81FF81FF81FF81F
- F00FF00FF00FF00FF007F007F007F007E003E003E003E003E001E001E001E001
- C001C001C001C001C000C000C000C00080008000800080008000800080008000
- 8000800080008000800080008000800080008000800080008001800180018001
- C21FC21FC21FC21FFFFFFFFFFFFFFFFF}
+ 00000000000000000000000000000000F87FFF7F00000000F01FF8FF00000000
+ E00FF8FF00000000E007E07F00000000E003E03F00000000C003801F00000000
+ C001800F00000000800180060000000080008201000000000000860100000000
+ 00008F010000000000008FC1000000000000FEC1000000000000FFF100000000
+ 0001FFF100000000861FFFFF00000000F87FFC3FFC3FFC3FF01FF81FF81FF81F
+ E00FF00FF00FF00FE007F007F007F007E003E003E003E003C003E001E001E001
+ C001C001C001C0018001C000C000C00080008000800080000000800080008000
+ 0000800080008000000080008000800000008000800080000000800180018001
+ 0003C21FC21FC21F861FFFFFFFFFFFFF00000000000000000000000000000000
+ 000000000000}
end
object EwbControl1: TEwbControl
InternetFeatures = [Behaviors, DisableMkProtocol,
GetUrlDomFilePathUnencoded]
- Left = 136
+ Left = 72
Top = 8
end
+ object ConnectionChecker: TTimer
+ Enabled = False
+ Interval = 2000
+ OnTimer = ConnectionCheckerTimer
+ Left = 104
+ Top = 8
+ end
end
Modified:
software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/Unit1.pas
===================================================================
---
software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/Unit1.pas
2009-07-23 09:45:58 UTC (rev 5140)
+++
software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/Unit1.pas
2009-07-23 09:53:48 UTC (rev 5141)
@@ -28,8 +28,8 @@
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, OleCtrls, SHDocVw_EWB, EwbCore, EmbeddedWB, Menus, ImgList,
IEDownload,
- ExtCtrls, EwbControlComponent, AppEvnts, StdCtrls, ComCtrls, TuxUtils,
- LibXmlParser, LibXmlComps, ShellAPI, Registry;
+ ExtCtrls, EwbControlComponent, AppEvnts, StdCtrls, ComCtrls, ShellAPI,
TuxUtils,
+ Registry;
const wm_AppelMessage = wm_user + 1;
@@ -45,6 +45,7 @@
ImageList1: TImageList;
EwbControl1: TEwbControl;
StatusBar1: TStatusBar;
+ ConnectionChecker: TTimer;
procedure FormCreate(Sender: TObject);
procedure ShowHide1Click(Sender: TObject);
@@ -54,6 +55,7 @@
procedure Mute1Click(Sender: TObject);
procedure EmbeddedWB1DocumentComplete(ASender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
+ procedure ConnectionCheckerTimer(Sender: TObject);
private
{ D�clarations priv�es }
@@ -86,9 +88,8 @@
procedure TForm1.FormCreate(Sender: TObject);
begin
url := 'http://127.0.0.1:270/user/';
-
radioState := false;
-
+
//Tray icon initialization.
Tray.cbSize := SizeOf(Tray);
Tray.wnd := Handle;
@@ -96,7 +97,7 @@
Tray.UCallbackMessage := wm_AppelMessage;
AppIcon := TIcon.Create;
- ImageList1.GetIcon(1, AppIcon);
+ ImageList1.GetIcon(0, AppIcon);
Application.Icon := AppIcon;
Form1.Icon := AppIcon;
@@ -109,13 +110,7 @@
EmbeddedWB1.Go(url);
- //Changing tray icon if server isn't started or no radio detected.
- if ( not TuxUtils.isTuxDroidServerStarted() ) then
- begin
- ImageList1.GetIcon(3, AppIcon);
- Tray.hIcon := AppIcon.Handle;
- Shell_NotifyIcon(Nim_Modify, @tray);
- end;
+ ConnectionChecker.Enabled := True;
end;
@@ -124,7 +119,6 @@
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose := False;
- ShowHide1.Caption := 'Show';
Form1.Hide;
end;
@@ -280,5 +274,32 @@
end;
end;
+
+{#### Check server and dongle state every 3000 ms ####}
+procedure TForm1.ConnectionCheckerTimer(Sender: TObject);
+var
+ server, dongle : boolean;
+begin
+ TuxUtils.getStates();
+ server := TuxUtils.isTuxDroidServerStarted();
+ dongle := TuxUtils.isDongleConnected();
+
+ //Changing tray icon if server isn't started or no radio detected.
+ if ( server and dongle ) then
+ begin
+ ImageList1.GetIcon(0, AppIcon);
+ Tray.hIcon := AppIcon.Handle;
+ Shell_NotifyIcon(Nim_Modify, @tray);
+ end
+ else
+ begin
+ ImageList1.GetIcon(1, AppIcon);
+ Tray.hIcon := AppIcon.Handle;
+ Shell_NotifyIcon(Nim_Modify, @tray);
+ end;
+ Application.ProcessMessages;
+ self.ConnectionChecker.Enabled := true;
+end;
+
end.
------------------------------------------------------------------------------
_______________________________________________
Tux-droid-svn mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/tux-droid-svn
