Блог программистов

В этой статье хочу поделиться опытом в создании клиент-сервера, который может быть использован, как для реализации сетевого чата, так и для применения в играх. Основой служат два компонента из стандартного пакета Delphi, это ServerSocket и ClientSocket. Они не всегда могут быть отображены в палитре Internet, и их нужно загрузить следующим образом:

выбрать меню: Component — Install Packages… — Add., далее нужно указать файл …\bin\dclsockets70.bpl.

Перейдем непосредственно к созданию проекта клиент-сервера, для начала на примере сетевого чата.

(more…)

например, Grid / DbGrid (далее Matrix) нужно заполнить значениями из Table..
затем :

with Printer do

begin

if Printing then exit;

PrinterIndex:= -1;

BeginDoc;

Onprint:= true;

Matrix.Color:= clWhite; // экономим чернила

Matrix.Repaint;

zoom:= PageWidth / (2*Matrix.Width);

zoom2:= PageHeight / (2*Matrix.Height);

if zoom2 на полстраницы

with canvas do

begin

Font.Size:= 14;

Font.Name:= 'Courier New';

TextOut((PageWidth-Textwidth(str)) div 2, 12, str);

StretchBlt(Handle, (PageWidth - wdt) div 2, 25+TextHeight(str), Wdt, Hgt,

Matrix.Canvas.handle, 0, 0, Matrix.Width, Matrix.Height-5, SrcCopy);

end;

EndDoc;

Onprint:= false;

Matrix.Color:= $00AABBCC;

Matrix.Repaint;

if aborted then MessageDlg('Печать была прервана!', mtInformation, [mbOK],0);

end;