Bună ziua tuturor. Am decis să scriu o lecție pentru a ajuta începătorii. În această lecție vă voi spune cum să faceți un săpun de checker pentru a vă înscrie pe Twitter. Toate lucrările vor merge la Delphi XE. pentru a lucra cu rețeaua va folosi Indy.Browser Mozilla FireFox (prin intermediul a prins cererile cu SSL) Tema cu Sreens
Deci, să începem.
Componenta TidHTTP pentru lucrul cu rețeaua. Prin ea, vom trimite toți, și așa mai departe.
TOpenDialog - prin aceasta vom încărca adresele noastre de e-mail în program.
TButton - un buton care, atunci când se face clic, va efectua o acțiune.
TMemo - în care vom scrie întregul jurnal.
TIdSSLIOHandlerSocketOpenSSL este o componentă pentru lucrul cu SSL. Din moment ce twitter lucrează prin ea, atunci fără această componentă nimic nu va funcționa.
TidAntiFreeze - fără această componentă, vor exista jurnale cu interfață GUI (cu alte cuvinte, în timpul lucrului, formularul va fi foarte strâns)
TGroupBox - În acesta vom adăuga etichete (TLABEL) pe măsură ce programul este dezvoltat.
Acum configurați-le. Când selectați orice componentă, în Object Inspector apar două file:
Proprietăți și evenimente
Proprietăți - proprietăți directe ale acestei componente.
Evenimente - evenimente posibile cu această componentă.
Acum lucrăm numai cu fila Proprietăți.
Selectați idHTTP1, pe linia IOHandler setați IdSSLIOHandlerSocketOpenSSL1. acesta va arata astfel:
Apoi, Memo1.
Line Lines, vizavi de TStrings. Apăsăm pe trei puncte. Ștergem totul pentru a fi pur și simplu gol.
GroupBox1.
Schimbați subtitrarea la "Statistici:"
Button1
Schimbați subtitrarea la "E-mailuri"
Button2
Schimbați subtitrarea la "Start"
Acum adăugați Tabelul pentru statistici.
Avem nevoie de 6 dintre ei. Selectați-le în Paleta de instrumente. și le aruncăm direct în GroupBox1 (de exemplu, nu pe formular, și anume este direct pe GroupBox1)
Aranjăm după tipul:
1 2
3 4
5 6
Schimbați numerele impare (1,3,5) ale proprietăților Caption la următoarele:
Toate:
Corect:
Bad:
Și pentru o subtitluire (2,4,6), curățăm.
Ca rezultat, forma noastra arata acum cam asa:
Etapa pregătirii formularului este finalizată. Să trecem la cod.
Pasul 3. Codul.
Trecem la cod (faceți clic pe F12).
Mai întâi, adăugați variabilele. În Var, adăugați:
Cod: selectați toate
În Mails, vom încărca săpunuri pentru a trimite cereri mai târziu.
În Link vom scrie sursa răspunsului de la server.
In va fi stocat numărul liniei curente din TStringList.
Lista este mică, în principiu nu avem nevoie de nimic altceva.
Du-te înapoi la formular, faceți clic pe spațiul gol al formularului, în Inspectorul de obiecte mergeți la fila Evenimente, opus OnCreate selectați linia, zhmakayem tudy de două ori și scrieți codul:
Cod: selectați toate
Acum ne vom ocupa de butoane.
Vom reveni la formular, faceți clic pe E-mailuri de două ori. Scrieți codul:
Cod: selectați toate
Acest cod încarcă un fișier în program, conținutul său este scris în e-mailuri, iar Label2 scrie numărul total de linii din acest text.