Статьи » Интернет и Сети
| Послать файл от TServerSocket на TClientSocket (20.01.2005 22:35 | Рейтинг: 1848) |
| 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... |
| Как определить свой IP адрес ? (20.01.2005 22:33 | Рейтинг: 4338) |
| Как определить свой IP адрес ? uses WinSock; function GetLocalIP: String;const WSVer = $101;var wsaData: TWSAData; P: PHostEnt; Buf: array [0..127] of Char;begin Result := ''; if WSAStartup(WSVer, wsaData) = 0 then begin if GetHostName(@Buf, 128) = 0 then begin P := GetHostByName(@Buf); if P nil then Result := iNet_ntoa(PInAddr(p^.h_addr_list^)^); end; WSACleanup;... |
| Как узнать IP машины по имени (20.01.2005 22:31 | Рейтинг: 2455) |
| Uses WinSock; const WINSOCK_VERSION = $0101; function GetIPAddress(name: string): string;var WSAData: TWSAData; p: PHostEnt;begin WSAStartup(WINSOCK_VERSION, WSAData); p := GetHostByName(PChar(name)); Result := inet_ntoa(PInAddr(p.h_addr_list^)^); ... |
| Получить имя компьютера по IP (20.01.2005 22:27 | Рейтинг: 2059) |
| Получить имя компьютера по IP uses WinSock; function LocalIP: string; type TaPInAddr = array[0..10] of PInAddr; PaPInAddr = ^TaPInAddr; var phe: PHostEnt; pptr: PaPInAddr; Buffer: array[0..63] of Char; I: Integer; GInitData: TWSAData; begin WSAStartup($101, GInitData); Result := ''; GetHostName(Buffer, SizeOf(Buffer)); phe := GetHostByName(buffer); if phe = nil the... |
| Присоединиться к FTP серверу и загрузить с него файл (20.01.2005 22:23 | Рейтинг: 1375) |
| { The following function shows how to connect to a ftp server and download a file. It uses the functions from wininet.dll. You need a ProgressBar to show the progress and a Label to show progress informations. } uses WinInet, ComCtrls; function FtpDownloadFile(strHost, strUser, strPwd: string; Port: Integer; ftpDir, ftpFile, TargetFile: string... |
| Установить соединение с Интернет (20.01.2005 22:21 | Рейтинг: 965) |
| Установить соединение с Интернет unit Unit1; { This unit shows how you can establish a connection to the internet without any user interaction.} interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; edtEntry: TEdit; // holds the name of the connection... |
| Обмен информацией между программами в сети по почтовым каналам (20.01.2005 22:18 | Рейтинг: 1322) |
| Как реализовать обмен информацией между Вашими приложениями в сети? ОС Windows предлагает несколько технологий. Эта статья опишет один очень простой и надежный способ для Win9x/NT - MailSlots. The CreateMailslot function creates a mailslot with the specified name and returns a handle that a mailslot server can use to perform operations on the mailslot. The mailslot is local to the computer that... |
| Основы оптимизации web-сайтов под поисковые системы (10.01.2005 00:36 | Рейтинг: 1093) |
| By Andy Beal 2003-11-13 Основы оптимизации сайта для поисковых систем Это самая последняя статья в серии "Back to Basics" (назад к основам). Предыдущие статьи касаются важности маркетинга поисковых машин (SEM), поиска эффективной ключевой фразы, форматов Title-тега, использования Meta-тегов, а также рассылок. В этом разделе мы рассмотрим изменения, которые вы можете внести ... |
| Ускорим Интернет (09.01.2005 12:58 | Рейтинг: 2505) |
| Операционная система Windows по умолчанию не настроена на работу с современными модемами и компьютерами, поэтому можно, даже нужно кое-что изменить. Войдя в "Панель управления" выберете "Модемы" и в свойствах модема выставьте скорость 115200. Это не скорость модема, а скорость, на которой будет происходить обмен информации между модемом и портом. В "Параметрах порта" выставьте максимальный объе... |
| Электронная почта. Основные принципы написания писем (03.01.2005 00:47 | Рейтинг: 1991) |
| Переписка по электронной почте является относительно новым видом эпистолярного жанра, в котором есть свои особенности отличающие ее от традиционного "бумажного" общения. В Интернет даже существует такое понятие как "нетикет" (сетевой этикет) – набор правил используемых для общения в Сети. Часть этих правил относятся к общению через электронную почту. Знание этих правил поможет вам с наибольше... |
Любимое меню
Любимые страницы
Любимые слова
Делать добро так просто!
