unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,XPMan, StdCtrls, OleCtrls, SHDocVw, IdUDPClient, IdBaseComponent,
IdComponent, IdUDPBase, IdUDPServer, IdIPWatch;
type
TForm2 = class(TForm)
WebBrowser1: TWebBrowser;
Memo1: TMemo;
IdUDPServer1: TIdUDPServer;
IdUDPClient1: TIdUDPClient;
IdIPWatch1: TIdIPWatch;
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure Memo1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure FormCreate(Sender: TObject);
procedure Memo1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
ABinding: TIdSocketHandle);
private
public
end;
var
Form2: TForm2;
c:integer;
Preobr:TStringStream;
implementation
uses unit1,unit3;
{$R *.dfm}
procedure TForm2.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
Sexit.ShowModal;
if sexit.ModalResult=mrOK then begin
sexit.Close;
canclose:=true;
form1.Close;
end;
if sexit.ModalResult=mrCancel then begin
sexit.Close;
canclose:=false;
end;
if sexit.ModalResult=mrRetry then begin
sexit.Close;
canclose:=true;
form1.Close;
end;
end;
procedure TForm2.Memo1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=VK_CONTROL then c:=1;
if c=1 then
if key=VK_RETURN then begin
IdUDPClient1.send(memo1.text);
end;
end;
procedure TForm2.FormCreate(Sender: TObject);
begin
c:=0;
end;
procedure TForm2.Memo1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=VK_CONTROL then c:=0;
end;
procedure TForm2.IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
ABinding: TIdSocketHandle);
begin
Preobr:=TStringStream.Create('');
preobr.CopyFrom(AData, AData.Size);
memo1.Lines.Add(ABinding.);
end;
end.
23.09.2013, 14:50
Помогите найти ошибку!
Линейный вид
