<?xml version="1.0" encoding="UTF-8"?>
<rss version="2.0"
	xmlns:content="http://purl.org/rss/1.0/modules/content/"
	xmlns:wfw="http://wellformedweb.org/CommentAPI/"
	xmlns:dc="http://purl.org/dc/elements/1.1/"
	xmlns:atom="http://www.w3.org/2005/Atom"
	xmlns:sy="http://purl.org/rss/1.0/modules/syndication/"
	xmlns:slash="http://purl.org/rss/1.0/modules/slash/"
	xmlns:georss="http://www.georss.org/georss" xmlns:geo="http://www.w3.org/2003/01/geo/wgs84_pos#" xmlns:media="http://search.yahoo.com/mrss/"
	>

<channel>
	<title>Arif widiyanto &#187; Internet/Lan</title>
	<atom:link href="http://arifw.wordpress.com/tag/internetlan/feed/" rel="self" type="application/rss+xml" />
	<link>http://arifw.wordpress.com</link>
	<description>mind, passions, spirit and hopes</description>
	<lastBuildDate>Tue, 10 Feb 2009 21:54:16 +0000</lastBuildDate>
	<generator>http://wordpress.com/</generator>
	<language>id</language>
	<sy:updatePeriod>hourly</sy:updatePeriod>
	<sy:updateFrequency>1</sy:updateFrequency>
	<cloud domain='arifw.wordpress.com' port='80' path='/?rsscloud=notify' registerProcedure='' protocol='http-post' />
<image>
		<url>http://www.gravatar.com/blavatar/d382bbfd951e4023fa2574e327371f53?s=96&#038;d=http://s.wordpress.com/i/buttonw-com.png</url>
		<title>Arif widiyanto &#187; Internet/Lan</title>
		<link>http://arifw.wordpress.com</link>
	</image>
	<atom:link rel="search" type="application/opensearchdescription+xml" href="http://arifw.wordpress.com/osd.xml" title="Arif widiyanto" />
		<item>
		<title>Delphi &#8211; Mencari tahu jenis koneksi internet</title>
		<link>http://arifw.wordpress.com/2008/04/26/delphi-mencari-tahu-jenis-koneksi-internet/</link>
		<comments>http://arifw.wordpress.com/2008/04/26/delphi-mencari-tahu-jenis-koneksi-internet/#comments</comments>
		<pubDate>Sat, 26 Apr 2008 09:48:42 +0000</pubDate>
		<dc:creator>arifw</dc:creator>
				<category><![CDATA[Delphi]]></category>
		<category><![CDATA[Internet/Lan]]></category>
		<category><![CDATA[Programming]]></category>

		<guid isPermaLink="false">http://arifw.wordpress.com/2008/04/26/delphi-mencari-tahu-jenis-koneksi-internet/</guid>
		<description><![CDATA[
uses   WinInet; 
const   MODEM = 1;   LAN = 2;   PROXY = 4;   BUSY = 8; 
function GetConnectionKind(var strKind: string): Boolean; var   flags: DWORD; begin   strKind := &#8221;;   Result := InternetGetConnectedState(@flags, 0);   if Result then   begin [...]<img alt="" border="0" src="http://stats.wordpress.com/b.gif?host=arifw.wordpress.com&blog=2581537&post=43&subd=arifw&ref=&feed=1" />]]></description>
		<wfw:commentRss>http://arifw.wordpress.com/2008/04/26/delphi-mencari-tahu-jenis-koneksi-internet/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
	
		<media:content url="http://0.gravatar.com/avatar/8eb5a760eaccd5d4e83881026d586196?s=96&#38;d=identicon" medium="image">
			<media:title type="html">arif</media:title>
		</media:content>
	</item>
		<item>
		<title>Delphi &#8211; Memanggil default email program</title>
		<link>http://arifw.wordpress.com/2008/04/24/delphi-memanggil-default-email-program/</link>
		<comments>http://arifw.wordpress.com/2008/04/24/delphi-memanggil-default-email-program/#comments</comments>
		<pubDate>Wed, 23 Apr 2008 20:32:06 +0000</pubDate>
		<dc:creator>arifw</dc:creator>
				<category><![CDATA[Delphi]]></category>
		<category><![CDATA[Internet/Lan]]></category>
		<category><![CDATA[Programming]]></category>

		<guid isPermaLink="false">http://arifw.wordpress.com/2008/04/24/delphi-memanggil-default-email-program/</guid>
		<description><![CDATA[
uses
  ShellApi;
procedure TForm1.Button1Click(Sender: TObject);
var
  strEmail, strSubject, strBody, Param: string;
begin
  strEmail := &#8216;user@host.com&#8217;;
  strSubject := &#8216;Your Subject&#8217;;
  strBody := &#8216;Your Message Text&#8217;;
  Param := &#8216;mailto:&#8217; + strEmail + &#8216;?subject=&#8217; + strSubject +
           &#8216;&#38;amp;Body=&#8217; + strBody;
  ShellExecute(Form1.Handle, &#8216;open&#8217;, PChar(Param), nil, [...]<img alt="" border="0" src="http://stats.wordpress.com/b.gif?host=arifw.wordpress.com&blog=2581537&post=33&subd=arifw&ref=&feed=1" />]]></description>
		<wfw:commentRss>http://arifw.wordpress.com/2008/04/24/delphi-memanggil-default-email-program/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
	
		<media:content url="http://0.gravatar.com/avatar/8eb5a760eaccd5d4e83881026d586196?s=96&#38;d=identicon" medium="image">
			<media:title type="html">arif</media:title>
		</media:content>

		<media:content url="http://www.mydigitallife.info/wp-content/uploads/2006/02/picasa-email2.png" medium="image" />
	</item>
		<item>
		<title>Delphi &#8211; Memulai dialup connection</title>
		<link>http://arifw.wordpress.com/2008/04/24/delphi-memulai-dialup-connection/</link>
		<comments>http://arifw.wordpress.com/2008/04/24/delphi-memulai-dialup-connection/#comments</comments>
		<pubDate>Wed, 23 Apr 2008 20:29:43 +0000</pubDate>
		<dc:creator>arifw</dc:creator>
				<category><![CDATA[Delphi]]></category>
		<category><![CDATA[Internet/Lan]]></category>
		<category><![CDATA[Programming]]></category>

		<guid isPermaLink="false">http://arifw.wordpress.com/2008/04/24/delphi-memulai-dialup-connection/</guid>
		<description><![CDATA[

uses
  ShellAPI;
procedure TForm1.Button1Click(Sender: TObject);
begin
  case OSVer of
    VER_PLATFORM_WIN32_NT:
        {connection_name = the name of the connection in &#8220;Network and
        DialUp Connections&#8221;, logon = logon string, password = password string.
        All [...]<img alt="" border="0" src="http://stats.wordpress.com/b.gif?host=arifw.wordpress.com&blog=2581537&post=32&subd=arifw&ref=&feed=1" />]]></description>
		<wfw:commentRss>http://arifw.wordpress.com/2008/04/24/delphi-memulai-dialup-connection/feed/</wfw:commentRss>
		<slash:comments>2</slash:comments>
	
		<media:content url="http://0.gravatar.com/avatar/8eb5a760eaccd5d4e83881026d586196?s=96&#38;d=identicon" medium="image">
			<media:title type="html">arif</media:title>
		</media:content>

		<media:content url="http://support.easystreet.com/dialup/local/winxp/dialup-connect.jpg" medium="image" />
	</item>
		<item>
		<title>Delphi &#8211; Konek ke internet</title>
		<link>http://arifw.wordpress.com/2008/04/24/delphi-konek-ke-internet/</link>
		<comments>http://arifw.wordpress.com/2008/04/24/delphi-konek-ke-internet/#comments</comments>
		<pubDate>Wed, 23 Apr 2008 20:27:26 +0000</pubDate>
		<dc:creator>arifw</dc:creator>
				<category><![CDATA[Delphi]]></category>
		<category><![CDATA[Internet/Lan]]></category>
		<category><![CDATA[Programming]]></category>

		<guid isPermaLink="false">http://arifw.wordpress.com/2008/04/24/delphi-konek-ke-internet/</guid>
		<description><![CDATA[

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    edtEntry: TEdit;
    edtUser: TEdit;
    edtPass: TEdit; 
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
  private
    { Private [...]<img alt="" border="0" src="http://stats.wordpress.com/b.gif?host=arifw.wordpress.com&blog=2581537&post=31&subd=arifw&ref=&feed=1" />]]></description>
		<wfw:commentRss>http://arifw.wordpress.com/2008/04/24/delphi-konek-ke-internet/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
	
		<media:content url="http://0.gravatar.com/avatar/8eb5a760eaccd5d4e83881026d586196?s=96&#38;d=identicon" medium="image">
			<media:title type="html">arif</media:title>
		</media:content>

		<media:content url="http://unilanet.unila.ac.id/images/themes/theme_mambosimple/internet.gif" medium="image" />
	</item>
		<item>
		<title>Delphi &#8211; Periksa apakah Winsock enabled</title>
		<link>http://arifw.wordpress.com/2008/04/24/delphi-periksa-apakah-winsock-enabled/</link>
		<comments>http://arifw.wordpress.com/2008/04/24/delphi-periksa-apakah-winsock-enabled/#comments</comments>
		<pubDate>Wed, 23 Apr 2008 20:23:01 +0000</pubDate>
		<dc:creator>arifw</dc:creator>
				<category><![CDATA[Delphi]]></category>
		<category><![CDATA[Internet/Lan]]></category>
		<category><![CDATA[Programming]]></category>

		<guid isPermaLink="false">http://arifw.wordpress.com/2008/04/24/delphi-periksa-apakah-winsock-enabled/</guid>
		<description><![CDATA[

uses
  Winsock;
function WinsockEnabled: Boolean;
var
  wsaData: TWSAData;
begin
  Result := True;
  case Winsock.WSAStartup($0101, wsaData) of
    WSAEINVAL, WSASYSNOTREADY, WSAVERNOTSUPPORTED: Result := False;
    else
      Winsock.WSACleanup;
  end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
  if WinsockEnabled then
    ShowMessage(&#8216;Winsock is enabled&#8217;)
  else
    [...]<img alt="" border="0" src="http://stats.wordpress.com/b.gif?host=arifw.wordpress.com&blog=2581537&post=30&subd=arifw&ref=&feed=1" />]]></description>
		<wfw:commentRss>http://arifw.wordpress.com/2008/04/24/delphi-periksa-apakah-winsock-enabled/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
	
		<media:content url="http://0.gravatar.com/avatar/8eb5a760eaccd5d4e83881026d586196?s=96&#38;d=identicon" medium="image">
			<media:title type="html">arif</media:title>
		</media:content>

		<media:content url="http://www.acm.org/crossroads/xrds6-4/gfx/charlotte_winsock_functions.gif" medium="image" />
	</item>
		<item>
		<title>Send a file from a TServerSocket to a TClientSocket</title>
		<link>http://arifw.wordpress.com/2008/04/24/send-a-file-from-a-tserversocket-to-a-tclientsocket/</link>
		<comments>http://arifw.wordpress.com/2008/04/24/send-a-file-from-a-tserversocket-to-a-tclientsocket/#comments</comments>
		<pubDate>Wed, 23 Apr 2008 20:18:31 +0000</pubDate>
		<dc:creator>arifw</dc:creator>
				<category><![CDATA[Delphi]]></category>
		<category><![CDATA[Internet/Lan]]></category>
		<category><![CDATA[Programming]]></category>

		<guid isPermaLink="false">http://arifw.wordpress.com/2008/04/24/send-a-file-from-a-tserversocket-to-a-tclientsocket/</guid>
		<description><![CDATA[

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ScktComp, StdCtrls;
type
  TForm1 = class(TForm)
    ClientSocket1: TClientSocket;
    ServerSocket1: TServerSocket;
    btnTestSockets: TButton;
procedure ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure ClientSocket1Disconnect(Sender: TObject;
      Socket: TCustomWinSocket);
procedure ClientSocket1Connect(Sender: TObject;
   [...]<img alt="" border="0" src="http://stats.wordpress.com/b.gif?host=arifw.wordpress.com&blog=2581537&post=29&subd=arifw&ref=&feed=1" />]]></description>
		<wfw:commentRss>http://arifw.wordpress.com/2008/04/24/send-a-file-from-a-tserversocket-to-a-tclientsocket/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
	
		<media:content url="http://0.gravatar.com/avatar/8eb5a760eaccd5d4e83881026d586196?s=96&#38;d=identicon" medium="image">
			<media:title type="html">arif</media:title>
		</media:content>

		<media:content url="http://thinkhole.org/wp/wp-content/images/bluetooth-file-transfer.png" medium="image" />
	</item>
		<item>
		<title>Delphi &#8211; Mendapatkan IP dari suatu URL</title>
		<link>http://arifw.wordpress.com/2008/04/24/delphi-mendapatkan-ip-dari-suatu-url/</link>
		<comments>http://arifw.wordpress.com/2008/04/24/delphi-mendapatkan-ip-dari-suatu-url/#comments</comments>
		<pubDate>Wed, 23 Apr 2008 20:15:31 +0000</pubDate>
		<dc:creator>arifw</dc:creator>
				<category><![CDATA[Delphi]]></category>
		<category><![CDATA[Internet/Lan]]></category>
		<category><![CDATA[Programming]]></category>

		<guid isPermaLink="false">http://arifw.wordpress.com/2008/04/24/delphi-mendapatkan-ip-dari-suatu-url/</guid>
		<description><![CDATA[

uses
  Winsock;
function IAddrToHostName(const IP: string): string;
var
  i: Integer;
  p: PHostEnt;
begin
  Result := &#8221;;
  i      := inet_addr(PChar(IP));
  if i &#38;amp;lt;&#38;amp;gt; u_long(INADDR_NONE) then
  begin
    p := GetHostByAddr(@i, SizeOf(Integer), PF_INET);
    if p &#38;amp;lt;&#38;amp;gt; nil then Result := p^.h_name;
  end
 [...]<img alt="" border="0" src="http://stats.wordpress.com/b.gif?host=arifw.wordpress.com&blog=2581537&post=28&subd=arifw&ref=&feed=1" />]]></description>
		<wfw:commentRss>http://arifw.wordpress.com/2008/04/24/delphi-mendapatkan-ip-dari-suatu-url/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
	
		<media:content url="http://0.gravatar.com/avatar/8eb5a760eaccd5d4e83881026d586196?s=96&#38;d=identicon" medium="image">
			<media:title type="html">arif</media:title>
		</media:content>

		<media:content url="http://www.raymond.cc/images/cryptload-download-rapidshare.png" medium="image" />
	</item>
		<item>
		<title>Download a file from Internet</title>
		<link>http://arifw.wordpress.com/2008/04/24/download-a-file-from-internet/</link>
		<comments>http://arifw.wordpress.com/2008/04/24/download-a-file-from-internet/#comments</comments>
		<pubDate>Wed, 23 Apr 2008 20:08:10 +0000</pubDate>
		<dc:creator>arifw</dc:creator>
				<category><![CDATA[Delphi]]></category>
		<category><![CDATA[Internet/Lan]]></category>
		<category><![CDATA[Programming]]></category>

		<guid isPermaLink="false">http://arifw.wordpress.com/2008/04/24/download-a-file-from-internet/</guid>
		<description><![CDATA[

uses
  URLMon, ShellApi;
function DownloadFile(SourceFile, DestFile: string): Boolean;
begin
  try
    Result := UrlDownloadToFile(nil, PChar(SourceFile), PChar(DestFile), 0, nil) = 0;
  except
    Result := False;
  end;
end;
procedure TForm1.Button1Click(Sender: TObject);
const
  SourceFile = &#8216;http://www.somesite.com/somefile.jpg&#8217;;
  DestFile = &#8216;c:\somefile.jpg&#8217;;
begin
  if DownloadFile(SourceFile, DestFile) then
  begin
    ShowMessage(&#8216;Download succesful!&#8217;);
  [...]<img alt="" border="0" src="http://stats.wordpress.com/b.gif?host=arifw.wordpress.com&blog=2581537&post=27&subd=arifw&ref=&feed=1" />]]></description>
		<wfw:commentRss>http://arifw.wordpress.com/2008/04/24/download-a-file-from-internet/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
	
		<media:content url="http://0.gravatar.com/avatar/8eb5a760eaccd5d4e83881026d586196?s=96&#38;d=identicon" medium="image">
			<media:title type="html">arif</media:title>
		</media:content>

		<media:content url="http://www.techspot.com/tweaks/iexplorer/ie-6.s14.gif" medium="image" />
	</item>
	</channel>
</rss>