Haruyuki Mohri Blog(Delphi)

毛利春幸のブログ

スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。
  1. --/--/--(--) --:--:--|
  2. スポンサー広告

Delphi.NETでTIdHTTPを使わない方法

Delphi.NETでTIdHTTP使わないでHTTPにGETしにいく方法
function TGetHttpContents.GetHttp(const stUrl: String): String;
var
WebClient0 : System.Net.WebClient;
Buff : TBytes;
begin
WebClient0 := System.Net.WebClient.Create;
try
Buff := WebClient0.DownloadData(stUrl);
Result := Encoding.Default.GetString(Buff);
finally
FreeAndNil( WebClient0 );
end;
end;


スポンサーサイト

テーマ:プログラミング - ジャンル:コンピュータ

  1. 2005/10/04(火) 13:04:17|
  2. Delphi.NET

.netでudp送受信

http://dobon.net/vb/dotnet/internet/udpclient.htmlの記事を
Delphi.NETに移植してみました。


program udptest;

{$APPTYPE CONSOLE}

uses
System.Text,
System.Net.Sockets,
System.Net;

var
enc : System.Text.Encoding;
remotehost : String;
remoteport : Integer;
localport : Integer;
udp : System.Net.Sockets.UdpClient;
sendMsg : String;
bytes,revBytes : array of Byte;
remoteEp : System.Net.IPEndPoint;
revMsg : String;
begin
//文字コードを指定する
enc := System.Text.Encoding.UTF8;

//データを送信するリモートホストとポート番号
remotehost := '127.0.0.1';
remoteport := 2002;

//バインドするローカルポート番号
localport := 2002;

//ローカルポート番号localPortにバインドする
udp := System.Net.Sockets.UdpClient.Create(localport);
try
//送信するデータを読み込む
sendMsg := Console.ReadLine;
bytes := enc.GetBytes(sendMsg);
udp.Send(bytes, Length(Bytes), remotehost, remoteport);

//データを受信する
revBytes := udp.Receive(remoteEp);
revMsg := enc.GetString(revBytes);
Console.WriteLine('受信したデータ:{0}', revMsg);
Console.WriteLine('送信元アドレス:{0}/ポート番号:{1}', [remoteEP.Address, remoteEP.Port]);

//UDP接続を終了
udp.Close;
Console.ReadLine;
finally
udp.Free;
end;


end.

テーマ:プログラミング - ジャンル:コンピュータ

  1. 2005/10/03(月) 13:02:54|
  2. .NET

Profile

Twitter...

最近の記事

ブログ内検索

上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。