Clases inicializables

Clases que pueden ser inizializadas en el script.

---

TScribble

Propiedades:

Sender          Ansistring  RW
onWebComplete   TScribbleComp RW

Metodos:

LoadFromWeb(url: AnsiString)
LoadFromFile(filename: AnsiString):Boolean
Assign(src: TPersistent)

Ejemplo:

var
s_sala,s_PV:Tscribble;

procedure completo(Sender:TObject;arg:ansistring);
begin
room.sendScribble(sender as Tscribble);
end;

procedure onLoad;
begin
  s_sala:= Tscribble.create;
  s_sala.onwebComplete:=@completo;
  s_sala.loadfromweb('https://...');

  s_PV:= Tscribble.create;
  s_PV.sender:= bot.name; //Al poner un nombre de la lista a sender, el scribble se vera en privado.
  s_PV.loadfromfile(datafolder+'imagen.bmp');
end;

procedure onJoin(u:TUser);
begin
  u.sendscribble(s_PV);
 end,  

---

Tpngimage

Propiedades:

width       Integer     R
heigth      Integer     R

Metodos:

LoadFromFile(const Filename: String)
SaveToFile(const Filename: String)

---

THTTP

Propiedades:

header      string      RW
method  string      RW
params  string      RW
src     string      RW
userAgent   string      RW
accept      string      RW
onComplete  TonComplete RW

Metodos:

download(arg: string)

Ejemplo:

var
http: THTTP;

procedure httpcomplete(doc, arg:ansistring);
begin
  Print(arg);
  file.save('web.http',doc);
  file.save('header.txt',http.header);
end;

procedure onLoad;
begin
 http:= thttp.create;
  http.src:='http://...';
  http.method:='GET';
  http.oncomplete:=@httpcomplete;
  http.download('argumento');
end;

---

THashlink

Propiedades:

name        ansistring  RW
ip      ansistring  RW
Port        ansistring  RW
hashlink    ansistring  RW

Metodos:

Encode
Decode

---

TBot

Propiedades:

onPV        TonPV       W
name        ansistring  W
country ansistring  W
city        ansistring  W
pm      ansistring  RW
sex     byte        W
age     byte        W
level       byte        W
avatar      Tbitmap W

Metodos:

Join
Update
Part

Ejemplo:

var
bot:Tbot;
bmp: Tbitmap;

//----------------------------------------------------------------------------
procedure botpv(u:TUser;msj,botname:string);
begin
//print(#3'14'+u.name+' envio: '+msj+' a '+botname);
end;
//-----------------------------------------------------------------------------LOAD
procedure onload;
begin
 bmp:= loadimage(datafolder+'avatar.png');
 bot:= Tbot.create;
 bot.name:= 'Server';
 bot.onpv:=@botpv; 
 bot.avatar:=bmp; 
  bot.level:=3;
 bot.pm:='Omega Ω';
 bot.join;
 bot.update;//Actualiza el mensaje personal
 end;
end;