Статьи » Интернет и Сети Сделать стартовой | Добавить в избранное | Знакомства на сайте

Статьи » Интернет и Сети

1 2 3 4 5 6 7 8 
Послать файл от TServerSocket на TClientSocket (20.01.2005 22:35 | by LIS)
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 | by LIS)
Как определить свой 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 | by LIS)
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 | by LIS)
Получить имя компьютера по 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 | by LIS)
{   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 | by LIS)
Установить соединение с Интернет 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 | by LIS)
Как реализовать обмен информацией между Вашими приложениями в сети? ОС 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 | by Sash)
By Andy Beal 2003-11-13 Основы оптимизации сайта для поисковых систем Это самая последняя статья в серии "Back to Basics" (назад к основам). Предыдущие статьи касаются важности маркетинга поисковых машин (SEM), поиска эффективной ключевой фразы, форматов Title-тега, использования Meta-тегов, а также рассылок. В этом разделе мы рассмотрим изменения, которые вы можете внести ...
Ускорим Интернет (09.01.2005 12:58 | by LIS)
Операционная система Windows по умолчанию не настроена на работу с современными модемами и компьютерами, поэтому можно, даже нужно кое-что изменить. Войдя в "Панель управления" выберете "Модемы" и в свойствах модема выставьте скорость 115200. Это не скорость модема, а скорость, на которой будет происходить обмен информации между модемом и портом. В "Параметрах порта" выставьте максимальный объем...
Электронная почта. Основные принципы написания писем (03.01.2005 00:47 | by )
Переписка по электронной почте является относительно новым видом эпистолярного жанра, в котором есть свои особенности отличающие ее от традиционного "бумажного" общения. В Интернет даже существует такое понятие как "нетикет" (сетевой этикет) – набор правил используемых для общения в Сети. Часть этих правил относятся к общению через электронную почту. Знание этих правил поможет вам с наибольше...


 Статьи » Интернет и Сети

Yahoo


Search



Love