<?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/"
	>

<channel>
	<title>X-pack.org &#187; Internet / Lan</title>
	<atom:link href="http://home.x-pack.org/category/free-source-code/delphi/internet-lan/feed/" rel="self" type="application/rss+xml" />
	<link>http://home.x-pack.org</link>
	<description>Download all you need here</description>
	<lastBuildDate>Fri, 18 May 2012 11:09:35 +0000</lastBuildDate>
	<language>en</language>
	<sy:updatePeriod>hourly</sy:updatePeriod>
	<sy:updateFrequency>1</sy:updateFrequency>
	<generator>http://wordpress.org/?v=3.2.1</generator>
		<item>
		<title>[ Delphi ] – Set the home page for the Internet Explorer</title>
		<link>http://home.x-pack.org/delphi-set-the-home-page-for-the-internet-explorer/</link>
		<comments>http://home.x-pack.org/delphi-set-the-home-page-for-the-internet-explorer/#comments</comments>
		<pubDate>Fri, 04 Jun 2010 10:51:14 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[Internet / Lan]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=308</guid>
		<description><![CDATA[unit iphlp; interface uses Windows, System; const &#160;&#160;MAX_HOSTNAME_LEN&#160;&#160;&#160;&#160;= 128; &#160;&#160;MAX_DOMAIN_NAME_LEN = 128; &#160;&#160;MAX_SCOPE_ID_LEN&#160;&#160;&#160;&#160;= 256; type &#160;&#160;PIPAddressString = ^TIPAddressString; &#160;&#160;PIPMaskString&#160;&#160;&#160;&#160;= ^TIPAddressString; &#160;&#160;TIPAddressString = record &#160;&#160;&#160;&#160;_String: array[0..(4 * 4) - 1] of Char; &#160;&#160;end; &#160;&#160;TIPMaskString = TIPAddressString; &#160;&#160;PIPAddrString = ^TIPAddrString; &#160;&#160;TIPAddrString = packed record &#160;&#160;&#160;&#160;Next: PIPAddrString; &#160;&#160;&#160;&#160;IpAddress: TIPAddressString; &#160;&#160;&#160;&#160;IpMask: TIPMaskString; &#160;&#160;&#160;&#160;Context: DWORD; &#160;&#160;end; &#160;&#160;PFixedInfo = ^TFixedInfo; &#160;&#160;TFixedInfo]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-set-the-home-page-for-the-internet-explorer/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] – Get Internet Explorer favourites</title>
		<link>http://home.x-pack.org/delphi-get-internet-explorer-favourites/</link>
		<comments>http://home.x-pack.org/delphi-get-internet-explorer-favourites/#comments</comments>
		<pubDate>Tue, 04 May 2010 11:17:30 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[Internet / Lan]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=336</guid>
		<description><![CDATA[uses ShlObj, ActiveX; function GetIEFavourites(const favpath: string): TStrings; var searchrec: TSearchRec; str: TStrings; path, dir, FileName: string; Buffer: array[0..2047] of Char; found: Integer; begin str := TStringList.Create; // Get all file names in the favourites path path := FavPath + '\*.url'; dir := ExtractFilepath(path); found := FindFirst(path, faAnyFile, searchrec); while found = 0 do begin]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-get-internet-explorer-favourites/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] – Open an URL in the Default Webbrowser</title>
		<link>http://home.x-pack.org/delphi-open-an-url-in-the-default-webbrowser/</link>
		<comments>http://home.x-pack.org/delphi-open-an-url-in-the-default-webbrowser/#comments</comments>
		<pubDate>Sun, 04 Apr 2010 11:23:05 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[Internet / Lan]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=348</guid>
		<description><![CDATA[uses &#160;&#160;ShellApi; procedure TForm1.Button1Click(Sender: TObject); begin &#160;&#160;ShellExecute(Handle, &#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160; 'open', &#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160; 'http://www.x-pack.org', &#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160; nil, &#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160; nil, &#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160; SW_SHOW); end;]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-open-an-url-in-the-default-webbrowser/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] – Call the default email program</title>
		<link>http://home.x-pack.org/delphi-call-the-default-email-program/</link>
		<comments>http://home.x-pack.org/delphi-call-the-default-email-program/#comments</comments>
		<pubDate>Sun, 04 Apr 2010 11:22:18 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[Internet / Lan]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=346</guid>
		<description><![CDATA[uses &#160;&#160;ShellApi; procedure TForm1.Button1Click(Sender: TObject); var &#160;&#160;strEmail, strSubject, strBody, Param: string; begin &#160;&#160;strEmail := 'user@host.com'; &#160;&#160;strSubject := 'Your Subject'; &#160;&#160;strBody := 'Your Message Text'; &#160;&#160;Param := 'mailto:' + strEmail + '?subject=' + strSubject + &#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160; '&#38;Body=' + strBody; &#160;&#160;ShellExecute(Form1.Handle, 'open', PChar(Param), nil, nil, SW_SHOWNORMAL); end;]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-call-the-default-email-program/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] – Get the path to the default webbrowser</title>
		<link>http://home.x-pack.org/delphi-get-the-path-to-the-default-webbrowser/</link>
		<comments>http://home.x-pack.org/delphi-get-the-path-to-the-default-webbrowser/#comments</comments>
		<pubDate>Sun, 04 Apr 2010 11:20:40 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[Internet / Lan]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=342</guid>
		<description><![CDATA[uses &#160;&#160;Registry; procedure TForm1.Button1Click(Sender: TObject); var &#160;&#160;Reg: TRegistry; &#160;&#160;KeyName: string; &#160;&#160;ValueStr: string; begin &#160;&#160;Reg := TRegistry.Create; &#160;&#160;try &#160;&#160;&#160;&#160;Reg.RootKey := HKEY_CLASSES_ROOT; &#160;&#160;&#160;&#160;KeyName&#160;&#160;:= 'htmlfile\shell\open\command'; &#160;&#160;&#160;&#160;if Reg.OpenKey(KeyName, False) then &#160;&#160;&#160;&#160;begin &#160;&#160;&#160;&#160;&#160;&#160;ValueStr := Reg.ReadString(''); &#160;&#160;&#160;&#160;&#160;&#160;Reg.CloseKey; &#160;&#160;&#160;&#160;&#160;&#160;Label1.Caption := ValueStr; &#160;&#160;&#160;&#160;end &#160;&#160;&#160;&#160;else &#160;&#160;&#160;&#160;&#160;&#160;ShowMessage('No Default Webbrowser !'); &#160;&#160;finally &#160;&#160;&#160;&#160;Reg.Free; &#160;&#160;end; end;]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-get-the-path-to-the-default-webbrowser/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] – Get the kind of internet connection</title>
		<link>http://home.x-pack.org/delphi-get-the-kind-of-internet-connection/</link>
		<comments>http://home.x-pack.org/delphi-get-the-kind-of-internet-connection/#comments</comments>
		<pubDate>Sun, 04 Apr 2010 11:15:49 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[Internet / Lan]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=334</guid>
		<description><![CDATA[uses &#160;&#160;WinInet; const &#160;&#160;MODEM = 1; &#160;&#160;LAN = 2; &#160;&#160;PROXY = 4; &#160;&#160;BUSY = 8; function GetConnectionKind(var strKind: string): Boolean; var &#160;&#160;flags: DWORD; begin &#160;&#160;strKind := ''; &#160;&#160;Result := InternetGetConnectedState(@flags, 0); &#160;&#160;if Result then &#160;&#160;begin &#160;&#160;&#160;&#160;if (flags and MODEM) = MODEM then strKind := 'Modem'; &#160;&#160;&#160;&#160;if (flags and LAN) = LAN then strKind := 'LAN';]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-get-the-kind-of-internet-connection/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] – Get or set the startpage for the Internet Explorer</title>
		<link>http://home.x-pack.org/delphi-get-or-set-the-startpage-for-the-internet-explorer/</link>
		<comments>http://home.x-pack.org/delphi-get-or-set-the-startpage-for-the-internet-explorer/#comments</comments>
		<pubDate>Sun, 04 Apr 2010 11:14:22 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[Internet / Lan]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=332</guid>
		<description><![CDATA[uses &#160;&#160;{...,}Registry; function GetIEStartPage: string; var &#160;&#160;Reg: TRegistry; begin &#160;&#160;Reg := TRegistry.Create; &#160;&#160;try &#160;&#160;&#160;&#160;Reg.RootKey := HKEY_CURRENT_USER; &#160;&#160;&#160;&#160;Reg.OpenKey('Software\Microsoft\Internet Explorer\Main', False); &#160;&#160;&#160;&#160;try &#160;&#160;&#160;&#160;&#160;&#160;Result := Reg.ReadString('Start Page'); &#160;&#160;&#160;&#160;except &#160;&#160;&#160;&#160;&#160;&#160;Result := ''; &#160;&#160;&#160;&#160;end; &#160;&#160;&#160;&#160;Reg.CloseKey; &#160;&#160;finally &#160;&#160;&#160;&#160;Reg.Free; &#160;&#160;end; end; function SetIEStartPage(APage: string): Boolean; var &#160;&#160;Reg: TRegistry; begin &#160;&#160;Reg := TRegistry.Create; &#160;&#160;try &#160;&#160;&#160;&#160;Reg.RootKey := HKEY_CURRENT_USER; &#160;&#160;&#160;&#160;Reg.OpenKey('Software\Microsoft\Internet Explorer\Main', False); &#160;&#160;&#160;&#160;try &#160;&#160;&#160;&#160;&#160;&#160;Reg.WriteString('Start Page',]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-get-or-set-the-startpage-for-the-internet-explorer/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] – Download a file from Internet</title>
		<link>http://home.x-pack.org/delphi-download-a-file-from-internet/</link>
		<comments>http://home.x-pack.org/delphi-download-a-file-from-internet/#comments</comments>
		<pubDate>Sun, 04 Apr 2010 11:09:17 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[Internet / Lan]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=324</guid>
		<description><![CDATA[uses &#160;&#160;URLMon, ShellApi; function DownloadFile(SourceFile, DestFile: string): Boolean; begin &#160;&#160;try &#160;&#160;&#160;&#160;Result := UrlDownloadToFile(nil, PChar(SourceFile), PChar(DestFile), 0, nil) = 0; &#160;&#160;except &#160;&#160;&#160;&#160;Result := False; &#160;&#160;end; end; procedure TForm1.Button1Click(Sender: TObject); const &#160;&#160;SourceFile = 'http://www.somesite.com/somefile.jpg'; &#160;&#160;DestFile = 'c:\somefile.jpg'; begin &#160;&#160;if DownloadFile(SourceFile, DestFile) then &#160;&#160;begin &#160;&#160;&#160;&#160;ShowMessage('Download succesful!'); &#160;&#160;&#160;&#160;ShellExecute(Application.Handle, PChar('open'), PChar(DestFile), &#160;&#160;&#160;&#160;&#160;&#160;PChar(''), nil, SW_NORMAL) &#160;&#160;end &#160;&#160;else &#160;&#160;&#160;&#160;ShowMessage('Error while downloading ']]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-download-a-file-from-internet/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] – Get the Internet Explorer typed urls</title>
		<link>http://home.x-pack.org/delphi-get-the-internet-explorer-typed-urls/</link>
		<comments>http://home.x-pack.org/delphi-get-the-internet-explorer-typed-urls/#comments</comments>
		<pubDate>Sun, 04 Apr 2010 11:01:33 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[Internet / Lan]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=318</guid>
		<description><![CDATA[uses registry; procedure ShowTypedUrls(Urls: TStrings); var Reg: TRegistry; S: TStringList; i: Integer; begin Reg := TRegistry.Create; try Reg.RootKey := HKEY_CURRENT_USER; if Reg.OpenKey('Software\Microsoft\Internet Explorer\TypedURLs', False) then begin S := TStringList.Create; try reg.GetValueNames(S); for i := 0 to S.Count - 1 do begin Urls.Add(reg.ReadString(S.Strings[i])); end; finally S.Free; end; Reg.CloseKey; end; finally Reg.Free; end; end; procedure TForm1.Button1Click(Sender: TObject);]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-get-the-internet-explorer-typed-urls/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] – Get the IP from a given URL</title>
		<link>http://home.x-pack.org/delphi-get-the-ip-from-a-given-url/</link>
		<comments>http://home.x-pack.org/delphi-get-the-ip-from-a-given-url/#comments</comments>
		<pubDate>Sun, 04 Apr 2010 10:52:14 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[Internet / Lan]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=310</guid>
		<description><![CDATA[uses &#160;&#160;Winsock; function IAddrToHostName(const IP: string): string; var &#160;&#160;i: Integer; &#160;&#160;p: PHostEnt; begin &#160;&#160;Result := ''; &#160;&#160;i&#160;&#160;&#160;&#160;&#160;&#160;:= inet_addr(PChar(IP)); &#160;&#160;if i &#60;&#62; u_long(INADDR_NONE) then &#160;&#160;begin &#160;&#160;&#160;&#160;p := GetHostByAddr(@i, SizeOf(Integer), PF_INET); &#160;&#160;&#160;&#160;if p &#60;&#62; nil then Result := p^.h_name; &#160;&#160;end &#160;&#160;else &#160;&#160;&#160;&#160;Result := 'Invalid IP address'; end;]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-get-the-ip-from-a-given-url/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] – Start a dialup connection</title>
		<link>http://home.x-pack.org/delphi-start-a-dialup-connection/</link>
		<comments>http://home.x-pack.org/delphi-start-a-dialup-connection/#comments</comments>
		<pubDate>Thu, 04 Mar 2010 11:25:51 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[Internet / Lan]]></category>
		<category><![CDATA[Mediafire]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=352</guid>
		<description><![CDATA[uses &#160;&#160;ShellAPI; procedure TForm1.Button1Click(Sender: TObject); begin &#160;&#160;case OSVer of &#160;&#160;&#160;&#160;VER_PLATFORM_WIN32_NT: &#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;{connection_name = the name of the connection in &#34;Network and &#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;DialUp Connections&#34;, logon = logon string, password = password string. &#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;All are separated by spaces.} &#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;ShellExecute(Handle, 'open', 'rasdial.exe', 'connection_name logon password', nil, SW_HIDE); &#160;&#160;&#160;&#160;VER_PLATFORM_WIN32_WINDOWS: &#160;&#160;&#160;&#160;&#160;&#160; (* &#160;&#160;&#160;&#160;&#160;&#160;Dial Up Networking (DUN) &#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;module: &#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;RNAUI.DLL &#160;&#160;&#160;&#160;&#160;&#160;command: &#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;rundll32.exe rnaui.dll,RnaDial]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-start-a-dialup-connection/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] – Check if I am connected to the internet</title>
		<link>http://home.x-pack.org/delphi-check-if-i-am-connected-to-the-internet/</link>
		<comments>http://home.x-pack.org/delphi-check-if-i-am-connected-to-the-internet/#comments</comments>
		<pubDate>Thu, 04 Mar 2010 11:24:15 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[Internet / Lan]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=350</guid>
		<description><![CDATA[interface uses Windows, SysUtils, Registry, WinSock, WinInet; type TConnectionType = (ctNone, ctProxy, ctDialup); function ConnectedToInternet: TConnectionType; function RasConnectionCount: Integer; implementation const cERROR_BUFFER_TOO_SMALL = 603; cRAS_MaxEntryName = 256; cRAS_MaxDeviceName = 128; cRAS_MaxDeviceType = 16; type ERasError = class(Exception); HRASConn = DWORD; PRASConn = ^TRASConn; TRASConn = record dwSize: DWORD; rasConn: HRASConn; szEntryName: array[0..cRAS_MaxEntryName] of Char; szDeviceType:]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-check-if-i-am-connected-to-the-internet/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] – Get your own IP Address</title>
		<link>http://home.x-pack.org/delphi-get-your-own-ip-address/</link>
		<comments>http://home.x-pack.org/delphi-get-your-own-ip-address/#comments</comments>
		<pubDate>Thu, 04 Mar 2010 11:19:26 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[Internet / Lan]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=340</guid>
		<description><![CDATA[uses&#160;&#160;Winsock; function getIPs: Tstrings; type &#160;&#160;TaPInAddr = array[0..10] of PInAddr; &#160;&#160;PaPInAddr = ^TaPInAddr; var &#160;&#160;phe: PHostEnt; &#160;&#160;pptr: PaPInAddr; &#160;&#160;Buffer: array[0..63] of Char; &#160;&#160;I: Integer; &#160;&#160;GInitData: TWSAData; begin &#160;&#160;WSAStartup($101, GInitData); &#160;&#160;Result := TstringList.Create; &#160;&#160;Result.Clear; &#160;&#160;GetHostName(Buffer, SizeOf(Buffer)); &#160;&#160;phe := GetHostByName(buffer); &#160;&#160;if phe = nil then Exit; &#160;&#160;pPtr := PaPInAddr(phe^.h_addr_list); &#160;&#160;I&#160;&#160;&#160;&#160;:= 0; &#160;&#160;while pPtr^[I] &#60;&#62; nil do &#160;&#160;begin]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-get-your-own-ip-address/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] – Encode a HTTP URL</title>
		<link>http://home.x-pack.org/delphi-encode-a-http-url/</link>
		<comments>http://home.x-pack.org/delphi-encode-a-http-url/#comments</comments>
		<pubDate>Thu, 04 Mar 2010 11:12:02 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[Internet / Lan]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=328</guid>
		<description><![CDATA[function HTTPEncode(const AStr: string): string; const &#160;&#160;NoConversion = ['A'..'Z', 'a'..'z', '*', '@', '.', '_', '-']; var &#160;&#160;Sp, Rp: PChar; begin &#160;&#160;SetLength(Result, Length(AStr) * 3); &#160;&#160;Sp := PChar(AStr); &#160;&#160;Rp := PChar(Result); &#160;&#160;while Sp^ &#60;&#62; #0 do &#160;&#160;begin &#160;&#160;&#160;&#160;if Sp^ in NoConversion then &#160;&#160;&#160;&#160;&#160;&#160;Rp^ := Sp^ &#160;&#160;&#160;&#160;else if Sp^ = ' ' then &#160;&#160;&#160;&#160;&#160;&#160;Rp^ := '+' &#160;&#160;&#160;&#160;else]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-encode-a-http-url/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] – Send a file from a TServerSocket to a TClientSocket</title>
		<link>http://home.x-pack.org/delphi-send-a-file-from-a-tserversocket-to-a-tclientsocket/</link>
		<comments>http://home.x-pack.org/delphi-send-a-file-from-a-tserversocket-to-a-tclientsocket/#comments</comments>
		<pubDate>Thu, 04 Mar 2010 11:05:53 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[Internet / Lan]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=322</guid>
		<description><![CDATA[unit Unit1; interface uses &#160;&#160;Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, &#160;&#160;Dialogs, ScktComp, StdCtrls; type &#160;&#160;TForm1 = class(TForm) &#160;&#160;&#160;&#160;ClientSocket1: TClientSocket; &#160;&#160;&#160;&#160;ServerSocket1: TServerSocket; &#160;&#160;&#160;&#160;btnTestSockets: TButton; &#160;&#160;&#160;&#160;procedure ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket); &#160;&#160;&#160;&#160;procedure FormCreate(Sender: TObject); &#160;&#160;&#160;&#160;procedure FormDestroy(Sender: TObject); &#160;&#160;&#160;&#160;procedure ClientSocket1Disconnect(Sender: TObject; &#160;&#160;&#160;&#160;&#160;&#160;Socket: TCustomWinSocket); &#160;&#160;&#160;&#160;procedure ClientSocket1Connect(Sender: TObject; &#160;&#160;&#160;&#160;&#160;&#160;Socket: TCustomWinSocket); &#160;&#160;&#160;&#160;procedure ServerSocket1ClientConnect(Sender: TObject; &#160;&#160;&#160;&#160;&#160;&#160;Socket: TCustomWinSocket); &#160;&#160;&#160;&#160;procedure btnTestSocketsClick(Sender: TObject); &#160;&#160;private]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-send-a-file-from-a-tserversocket-to-a-tclientsocket/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
	</channel>
</rss>

<!-- Performance optimized by W3 Total Cache. Learn more: http://www.w3-edge.com/wordpress-plugins/

Page Caching using disk: enhanced
Database Caching 35/85 queries in 0.264 seconds using disk: basic
Object Caching 814/922 objects using disk: basic

Served from: home.x-pack.org @ 2012-05-19 05:04:45 -->
