Internet Direct (Indy) for D6 Propert and Component Editor

https://svn.atozed.com:444/svn/Indy10/tags

D:\000_Delphi\Indy10_6_2\Lib\Core
D:\000_Delphi\Indy10_6_2\Lib\Protocols
D:\000_Delphi\Indy10_6_2\Lib\System

dclIndyCore60.bpl 
dclIndyProtocols60.bpl

cd C:\000_Delphi\Indy10_6_2\Lib
Fulld_6.bat

implementation

uses
  IdGlobal,
  TypInfo;

{$R *.dfm}

//=============================================================================
//  Indey 10.6.2 における文字コード(コードページ)の設定
//
//  IdGlobalのメンバを使用するにはusesにIdGlobalを追加する
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
begin
  //文字コード(コードページ)の自動変換のグローバル設定
  //デフォルトはASCII
  IdGlobal.GIdDefaultTextEncoding := encOSDefault;  //範囲外の文字は破棄される
  IdGlobal.GIdDefaultTextEncoding := encASCII;      //範囲外の文字は破棄される
  IdGlobal.GIdDefaultTextEncoding := encUTF8;


end;

//=============================================================================
//  設定可能な文字コードの値のリスト
//  IdTextEncodingType(列挙型)の値を列挙
//
//  TyppeInfoの使用にはusesにTypInfoが必要
//=============================================================================
procedure TForm1.Button2Click(Sender: TObject);
var
  LpInfo : PTypeInfo;
  LpData : PTypeData;
  i      : Integer;
begin
  Memo1.Clear;

  LpInfo := TypeInfo(IdTextEncodingType);

  //列挙型であれば調査
  if LpInfo^.Kind = tkEnumeration then begin
    LpData := GetTypeData(LpInfo);
    for i := LpData^.MinValue to LpData^.MaxValue do begin
      Memo1.Lines.Add(GetEnumName(LpInfo, i));
    end;
  end;
end;

implementation

uses
  IdURI,
  IdGlobal;

{$R *.dfm}

// =============================================================================
//  TIdURI.URLDecodeを使用したURL文字列のデコード
//  usesにIdURI,IdGlobalが必要
// =============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
  LSrcStr : string;
  LDstStr : string;
begin
  Memo1.Lines.Clear;

  LSrcStr := '%E5%8D%B0%E5%88%B7%E3%80%80%E3%83%97%E3%83%AA%E3%83%B3%E3%82%BF';
  LDstStr := TIdURI.URLDecode(LSrcStr, IndyTextEncoding_UTF8);
  // 結果は'印刷　プリンタ'
  Memo1.Lines.Add(LSrcStr);
  Memo1.Lines.Add('');
  Memo1.Lines.Add(LDstStr);
end;

// =============================================================================
//  TIdURI.URLEncodeを使用したURL文字列のエンコード
//  TIdURI.URLEncodeはプロトコルがある文字列をエンコードする
//  プロトコルがないと変換に失敗する
//  usesにIdURI,IdGlobalが必要
// =============================================================================
procedure TForm1.Button2Click(Sender: TObject);
var
  LSrcStr : string;
  LDstStr : string;
begin
  Memo1.Lines.Clear;

  LSrcStr := 'http://www.test.com/印刷　プリンタ';
  LDstStr := TIdURI.URLEncode(LSrcStr, IndyTextEncoding_UTF8);

  //漢字部分の結果は'%E5%8D%B0%E5%88%B7%E3%80%80%E3%83%97%E3%83%AA%E3%83%B3%E3%82%BF'
  Memo1.Lines.Add(LSrcStr);
  Memo1.Lines.Add('');
  Memo1.Lines.Add(LDstStr);
end;

// =============================================================================
//  TIdURI.ParamsEncodeを使用した文字列のエンコード
//  usesにIdURI,IdGlobalが必要
// =============================================================================
procedure TForm1.Button3Click(Sender: TObject);
var
  LSrcStr : string;
  LDstStr : string;
begin
  Memo1.Lines.Clear;

  LSrcStr := '印刷　プリンタ';
  LDstStr := TIdURI.ParamsEncode(LSrcStr, IndyTextEncoding_UTF8);

  //結果は'%E5%8D%B0%E5%88%B7%E3%80%80%E3%83%97%E3%83%AA%E3%83%B3%E3%82%BF'
  Memo1.Lines.Add(LSrcStr);
  Memo1.Lines.Add('');
  Memo1.Lines.Add(LDstStr);
end;

implementation

uses
  IdHTTPHeaderInfo,
  UrlMon;

{$R *.dfm}

//-----------------------------------------------------------------------------
//  UrlMonの関数を使用したIE のUser Agentの値の取得(1)
//  Ansi版,Unicode版のどちらのDelphiでも使用可能なようにAnsiCharを使用
//
//  usesにUrlMonが必要
//-----------------------------------------------------------------------------
function Get_IE_UserAgent: string;
var
  LUserAgent : array [0 .. MAX_PATH - 1] of AnsiChar;
  LdwSizeOut : DWord;
begin
  try
    LdwSizeOut := 0;
    FillChar(LUserAgent, SizeOf(LUserAgent), #0);
    UrlMkGetSessionOption(URLMON_OPTION_USERAGENT,
                          @LUserAgent,
                          SizeOf(LUserAgent),
                          LdwSizeOut,
                          0);
    Result := string(LUserAgent);
  except
    //Urlxxxの例外はシステム例外なので実際にはexceptでは補足できない
    on E: Exception do begin
      //Result := E.Message;
      Result := '';
    end;
  end;
end;

//-----------------------------------------------------------------------------
//  UrlMonの関数を使用したIE のUser Agentの値の取得(2)
//  Ansi版,Unicode版のどちらのDelphiでも使用可能なようにAnsiCharを使用
//
//  usesにUrlMonが必要
//-----------------------------------------------------------------------------
function Get_IE_ObtainUserAgent: string;
var
  LUserAgent : array [0 .. MAX_PATH - 1] of AnsiChar;
  LdwSizeOut : DWord;
begin
  Result := '';

  LdwSizeOut := SizeOf(LUserAgent);
  FillChar(LUserAgent, SizeOf(LUserAgent), #0);
  ObtainUserAgentString(0, @LUserAgent, LdwSizeOut);

  if LdwSizeOut > 0 then begin
    Result := string(LUserAgent);
  end;
end;

//=============================================================================
//  Indey 10.6.2 におけるUser-Agent(ユーザエージェント)の設定
//
//  GIdDefaultUserAgentの使用にはusesにIdHTTPHeaderInfoが必要
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
const
  UserAgent = 'Mozilla/5.0 (Windows NT 10.0; WOW64; Trident/7.0; rv:11.0) like Gecko';
var
  LText : string;
begin
  //グローバルに設定する場合
  //グローバル変数GIdDefaultUserAgentに代入しておく
  GIdDefaultUserAgent := UserAgent;

  //個別に設定する場合
  IdHTTP1.Request.UserAgent := UserAgent;

  //実行時にUser Agentの値を取得する例(IE限定)
  LText := Get_IE_UserAgent;
  MessageBox(Handle, PChar(LText), 'IE User Agent', MB_OK);
end;

<!DOCTYPE html>
<html lang="ja">
<head>
  <meta charset="UTF-8">
  <title>UserAgent Sample</title>
</head>
<body>
<span id="userAgent"></span>

<script>
   var userAgent = window.navigator.userAgent;
   var element = document.getElementById("userAgent");
   element.innerText = userAgent;
</script>
</body>
</html>