if (y>267) and (y<309) then result:='碧波' else
 if (y>309) and (y<351) then result:='青山' else
 if (y>351) and (y<393) then result:='綠野' else result:='未知';
end
else
if Logo='江山如畫(21區(qū))' then begin
 if (y>225) and (y<267) then result:='秋水' else
 if (y>267) and (y<309) then result:='長(zhǎng)天' else
 if (y>309) and (y<351) then result:='滄海' else
 if (y>351) and (y<393) then result:='桑田' else result:='未知';
end
else
if Logo='網(wǎng)通寬帶(22區(qū))' then begin
 if (y>225) and (y<267) then result:='霧都(new!)' else
 if (y>267) and (y<309) then result:='紫金' else
 if (y>309) and (y<351) then result:='赤焰' else
 if (y>351) and (y<393) then result:='紅日' else result:='未知';
end
else
if Logo='群雄逐鹿(23區(qū))' then begin
 if (y>225) and (y<267) then result:='金戈' else
 if (y>267) and (y<309) then result:='鐵馬' else
 if (y>309) and (y<351) then result:='至尊' else
 if (y>351) and (y<393) then result:='無敵' else result:='未知';
end
else
if Logo='西部圣域III(24區(qū))' then begin
 if (y>225) and (y<267) then result:='長(zhǎng)征(遵義)' else
 if (y>267) and (y<309) then result:='東坡(眉山)' else
 if (y>309) and (y<351) then result:='倚天(天府)' else
 if (y>351) and (y<393) then result:='屠龍(天府)' else result:='未知';
end
else
if Logo='風(fēng)云II(25區(qū))' then begin
 if (y>225) and (y<267) then result:='越秀' else
 if (y>267) and (y<309) then result:='黃埔' else
 if (y>309) and (y<351) then result:='珠江' else
 if (y>351) and (y<393) then result:='海印' else result:='未知';
end
else
if Logo='仙女湖(26區(qū))' then begin
 if (y>225) and (y<267) then result:='嵩陽(yáng)' else
 if (y>267) and (y<309) then result:='玄妙' else
 if (y>309) and (y<351) then result:='流波' else
 if (y>351) and (y<393) then result:='月濤' else result:='未知';
end
else
if Logo='網(wǎng)通寬帶II(27區(qū))' then begin
 if (y>141) and (y<183) then result:='風(fēng)月' else
 if (y>183) and (y<225) then result:='紫月' else
 if (y>225) and (y<267) then result:='大唐' else
 if (y>267) and (y<309) then result:='大秦' else
 if (y>309) and (y<351) then result:='龍吟' else
 if (y>351) and (y<393) then result:='聚義' else
 if (y>393) and (y<435) then result:='星海' else
 if (y>435) and (y<477) then result:='佳星' else result:='未知';
end
else
if Logo='中游傳奇(28區(qū))' then begin
 if (y>225) and (y<267) then result:='乾坤' else
 if (y>267) and (y<309) then result:='八卦' else
 if (y>309) and (y<351) then result:='奇門' else
 if (y>351) and (y<393) then result:='遁甲' else result:='未知';
end
else
if Logo='東海風(fēng)暴(29區(qū))' then begin
 if (y>225) and (y<267) then result:='御風(fēng)' else
 if (y>267) and (y<309) then result:='驚云' else
 if (y>309) and (y<351) then result:='劈波' else
 if (y>351) and (y<393) then result:='斬浪' else result:='未知';
end
else
if Logo='安徽熱線(30區(qū))' then begin
 if (y>267) and (y<309) then result:='逍遙' else
 if (y>309) and (y<351) then result:='傲岳' else result:='未知';
end
else
if Logo='甲天下(31區(qū))' then begin
 if (y>225) and (y<267) then result:='冷月' else
 if (y>267) and (y<309) then result:='無雙' else
 if (y>309) and (y<351) then result:='靈鳳' else
 if (y>351) and (y<393) then result:='云舞' else result:='未知';
end
else
if Logo='英雄天地(32區(qū))' then begin
 if (y>225) and (y<267) then result:='黃山' else
 if (y>267) and (y<309) then result:='燕趙' else
 if (y>309) and (y<351) then result:='遼沈' else
 if (y>351) and (y<393) then result:='瀟湘' else result:='未知';
end
else
if Logo='西部圣域IV(33區(qū))' then begin
 if (y>141) and (y<183) then result:='華容' else
 if (y>183) and (y<225) then result:='官渡' else
 if (y>225) and (y<267) then result:='劍閣' else
 if (y>267) and (y<309) then result:='赤壁' else
 if (y>309) and (y<351) then result:='桃源' else
 if (y>351) and (y<393) then result:='白帝' else
 if (y>393) and (y<435) then result:='虎牢' else
 if (y>435) and (y<477) then result:='赤水' else result:='未知';
end
else
if Logo='五里河(34區(qū))' then begin
 if (y>225) and (y<267) then result:='龍騰' else
 if (y>267) and (y<309) then result:='虎躍' else
 if (y>309) and (y<351) then result:='鳳舞' else
 if (y>351) and (y<393) then result:='鷹翔' else result:='未知';
end
else
if Logo='江蘇電信(35區(qū))' then begin
 if (y>225) and (y<267) then result:='廣陵' else
 if (y>267) and (y<309) then result:='漢邦' else
 if (y>309) and (y<351) then result:='龍?bào)?#039; else
 if (y>351) and (y<393) then result:='虎踞' else result:='未知';
end
else
if Logo='網(wǎng)通寬帶III(36區(qū))' then begin
 if (y>141) and (y<183) then result:='荒原' else
 if (y>183) and (y<225) then result:='蒼穹' else
 if (y>225) and (y<267) then result:='地豁' else
 if (y>267) and (y<309) then result:='天漏' else
 if (y>309) and (y<351) then result:='中京' else
 if (y>351) and (y<393) then result:='王朝' else
 if (y>393) and (y<435) then result:='大漠' else
 if (y>435) and (y<477) then result:='天池' else result:='未知';
end
else
if Logo='古城熱線(37區(qū))' then begin
 if (y>225) and (y<267) then result:='周' else
 if (y>267) and (y<309) then result:='秦' else
 if (y>309) and (y<351) then result:='漢' else
 if (y>351) and (y<393) then result:='唐' else result:='未知';
end
else
if Logo='風(fēng)云III(38區(qū))' then begin
 if (y>225) and (y<267) then result:='黃鶴樓' else
 if (y>267) and (y<309) then result:='晴川閣' else
 if (y>309) and (y<351) then result:='荊州城' else
 if (y>351) and (y<393) then result:='武當(dāng)山' else result:='未知';
end
else
if Logo='風(fēng)云IV(39區(qū))' then begin
 if (y>225) and (y<267) then result:='太白' else
 if (y>267) and (y<309) then result:='驪山' else
 if (y>309) and (y<351) then result:='雁塔' else
 if (y>351) and (y<393) then result:='蓮湖' else result:='未知';
end
else
if Logo='仁者無敵(41區(qū))' then begin
 if (y>225) and (y<267) then result:='如意' else
 if (y>267) and (y<309) then result:='井岡' else
 if (y>309) and (y<351) then result:='仙水' else
 if (y>351) and (y<393) then result:='星城' else result:='未知';
end
else
if Logo='風(fēng)云V(42區(qū))' then begin
 if (y>141) and (y<183) then result:='鼓嶺(福州)' else
 if (y>183) and (y<225) then result:='鷺島(福州)' else
 if (y>225) and (y<267) then result:='金湖(福州)' else
 if (y>267) and (y<309) then result:='武夷(福州)' else
 if (y>309) and (y<351) then result:='秀嶼(福州)' else
 if (y>351) and (y<393) then result:='清源(福州)' else
 if (y>393) and (y<435) then result:='鷲峰(福州)' else
 if (y>435) and (y<477) then result:='丹霞(福州)' else result:='未知';
end
else
if Logo='教育網(wǎng)(43區(qū))' then begin
 if (y>225) and (y<267) then result:='山海經(jīng)(北京)' else
 if (y>267) and (y<309) then result:='東周傳(北京)' else
 if (y>309) and (y<351) then result:='戰(zhàn)國(guó)策(北京)' else
 if (y>351) and (y<393) then result:='鏡花緣(北京)' else result:='未知';
end
else
if Logo='瀟湘圣域(44區(qū))' then begin
 if (y>225) and (y<267) then result:='湘江(湖南)' else
 if (y>267) and (y<309) then result:='洞庭(湖南)' else
 if (y>309) and (y<351) then result:='衡山(湖南)' else
 if (y>351) and (y<393) then result:='武陵(湖南)' else result:='未知';
end
else
if Logo='西部圣域V(45區(qū))' then begin
 if (y>225) and (y<267) then result:='玄冰(成都)' else
 if (y>267) and (y<309) then result:='天罡(成都)' else
 if (y>309) and (y<351) then result:='黔靈(貴陽(yáng))' else
 if (y>351) and (y<393) then result:='花溪(貴陽(yáng))' else result:='未知';
end
else
if Logo='逐鹿中原(46區(qū))' then begin
 if (y>141) and (y<183) then result:='英雄(鄭州)' else
 if (y>183) and (y<225) then result:='天煞(鄭州)' else
 if (y>225) and (y<267) then result:='臥龍(焦作)' else
 if (y>267) and (y<309) then result:='鳳雛(焦作)' else
 if (y>309) and (y<351) then result:='縱橫(上海)' else
 if (y>351) and (y<393) then result:='軒轅(三門峽)' else
 if (y>393) and (y<435) then result:='戰(zhàn)神(上海)' else
 if (y>435) and (y<477) then result:='懸風(fēng)(上海)' else result:='未知';
end
else
if Logo='西部圣域VI(47區(qū))' then begin
 if (y>141) and (y<183) then result:='錦州(綿陽(yáng))' else
 if (y>183) and (y<225) then result:='佛都(樂山)' else
 if (y>225) and (y<267) then result:='竹海(宜賓)' else
 if (y>267) and (y<309) then result:='酒城(瀘州)' else
 if (y>309) and (y<351) then result:='果城(南充)' else
 if (y>351) and (y<393) then result:='甜城(內(nèi)江)' else
 if (y>393) and (y<435) then result:='雨城(雅安)' else
 if (y>435) and (y<477) then result:='陽(yáng)光(資陽(yáng))' else result:='未知';
end
else
if Logo='網(wǎng)通寬帶IV(48區(qū))' then begin
 if (y>183) and (y<225) then result:='星海二(大連)' else
 if (y>225) and (y<267) then result:='千山一(鞍山)' else
 if (y>267) and (y<309) then result:='千山二(遼陽(yáng))' else
 if (y>309) and (y<351) then result:='盛京一(沈陽(yáng))' else
 if (y>351) and (y<393) then result:='盛京二(沈陽(yáng))' else
 if (y>393) and (y<435) then result:='淮揚(yáng)(江蘇)' else result:='未知';
end
else
if Logo='廣電星空II(49區(qū))' then begin
 if (y>246) and (y<288) then result:='鳳凰(唐山)' else
 if (y>288) and (y<330) then result:='津沽(天津)' else
 if (y>330) and (y<372) then result:='津沽二(天津)' else result:='未知';
end
else
if Logo='天津?qū)拵?50區(qū))' then begin
 if (y>225) and (y<267) then result:='無名(天津)' else
 if (y>267) and (y<309) then result:='長(zhǎng)空(天津)' else
 if (y>309) and (y<351) then result:='殘劍(天津)' else
 if (y>351) and (y<393) then result:='飛雪(天津)' else result:='未知';
end
else
if Logo='吉林通信專區(qū)(51區(qū))' then begin
 if (y>225) and (y<267) then result:='神舟(長(zhǎng)春)' else
 if (y>267) and (y<309) then result:='霧淞(長(zhǎng)春)' else
 if (y>309) and (y<351) then result:='九州(上海)' else
 if (y>351) and (y<393) then result:='天下(上海)' else result:='未知';
end
else
if Logo='浙江電信專區(qū)(52區(qū))' then begin
 if (y>225) and (y<267) then result:='西湖(杭州)' else
 if (y>267) and (y<309) then result:='西塘(杭州)' else
 if (y>309) and (y<351) then result:='鑒湖(杭州)' else
 if (y>351) and (y<393) then result:='雙龍(杭州)' else result:='未知';
end
else result:='未知(區(qū)域)';
End;

function EncodeBASE64(Encoded: TMemoryStream ; Decoded: TMemoryStream): Integer;
const
    _Code64: String[64] =
        ('ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/');
var
    I: LongInt;
    B: array[0..2279] of Byte;
    J, K, L, M, Quads: Integer;
    Stream: string[76];
    EncLine: String;
begin
    Encoded.Clear;
    Stream := '';
    Quads := 0;
    {為提高效率，每2280字節(jié)流為一組進(jìn)行編碼}
    J := Decoded.Size div 2280;
    Decoded.Position := 0;
    {對(duì)前J*2280個(gè)字節(jié)流進(jìn)行編碼}
    for I := 1 to J do
    begin
        Decoded.Read(B, 2280);
        for M := 0 to 39 do
        begin
            for K := 0 to 18 do
            begin
                L:= 57*M + 3*K;
                Stream[Quads+1] := _Code64[(B[L] div 4)+1];
                Stream[Quads+2] := _Code64[(B[L] mod 4)*16 + (B[L+1] div 16)+1];
                Stream[Quads+3] := _Code64[(B[L+1] mod 16)*4 + (B[L+2] div 64)+1];
                Stream[Quads+4] := _Code64[B[L+2] mod 64+1];
                Inc(Quads, 4);
                if Quads = 76 then
                begin
                    Stream[0] := #76;
                    EncLine := Stream+#13#10;
                    Encoded.Write(EncLine[1], Length(EncLine));
                    Quads := 0;
                end;
            end;
        end;
    end;

    {對(duì)以2280為模的余數(shù)字節(jié)流進(jìn)行編碼}
    J := (Decoded.Size mod 2280) div 3;
    for I := 1 to J do
    begin
        Decoded.Read(B, 3);
        Stream[Quads+1] := _Code64[(B[0] div 4)+1];
        Stream[Quads+2] := _Code64[(B[0] mod 4)*16 + (B[1] div 16)+1];
        Stream[Quads+3] := _Code64[(B[1] mod 16)*4 + (B[2] div 64)+1];
        Stream[Quads+4] := _Code64[B[2] mod 64+1];
        Inc(Quads, 4);
        {每行76個(gè)字符}
        if Quads = 76 then
        begin
            Stream[0] := #76;
            EncLine := Stream+#13#10;
            Encoded.Write(EncLine[1], Length(EncLine));
            Quads := 0;
        end;
    end;
    {“=”補(bǔ)位}
    if (Decoded.Size mod 3) = 2 then
    begin
        Decoded.Read(B, 2);
        Stream[Quads+1] := _Code64[(B[0] div 4)+1];
        Stream[Quads+2] := _Code64[(B[0] mod 4)*16 + (B[1] div 16)+1];
        Stream[Quads+3] := _Code64[(B[1] mod 16)*4 + 1];
        Stream[Quads+4] := '=';
        Inc(Quads, 4);
    end;

    if (Decoded.Size mod 3) = 1 then
    begin
        Decoded.Read(B, 1);
        Stream[Quads+1] := _Code64[(B[0] div 4)+1];
        Stream[Quads+2] := _Code64[(B[0] mod 4)*16 + 1];
        Stream[Quads+3] := '=';
        Stream[Quads+4] := '=';
        Inc(Quads, 4);
    end;

    Stream[0] := Chr(Quads);
    if Quads > 0 then
    begin
        EncLine := Stream+#13#10;
        Encoded.Write(EncLine[1], Length(EncLine));
    end;

    Result := Encoded.Size;
end;

{對(duì)參數(shù)Decoded字符串進(jìn)行Base64編碼，返回編碼后的字符串}
function EncodeString(Decoded:string):String;
var
    mmTemp,mmDecoded:TMemoryStream;
    strTemp:TStrings;
begin
    mmTemp := TMemoryStream.Create;
    mmDecoded:=TMemoryStream.Create;
    strTemp:=TStringList.Create;
    strTemp.Add(Decoded);
    strTemp.SaveToStream(mmTemp);
    mmTemp.Position := 0;
    {剔除mmTemp從strTemp中帶來的字符#13#10}
    mmDecoded.CopyFrom(mmTemp,mmTemp.Size-2);
    {對(duì)mmDecoded進(jìn)行Base64編碼，由mmTemp返回編碼后的結(jié)果}
    EncodeBASE64(mmTemp,mmDecoded);
    {獲得Base64編碼后的字符串}
    mmTemp.Position:=0;
    strTemp.LoadFromStream(mmTemp);
    {返回結(jié)果必須從strTemp[0]中獲得，如果使用strTemp.Text會(huì)
    帶來不必要的字符#13#10}
    Result:=strTemp[0];
end;

end.