Цитата:
Сообщение от JackRu
Решил всё таки перебрать программу через TClientSocket TServerSocket ...
Но вот наткнулся на проблему
Код:
If ComboBox2.ItemIndex = 6 then
begin
showmessage('Выбран элемент 7');
ClientSocket1.Host:=114.101.125.36;
ClientSocket1.Port := 16781;
ClientSocket1.Open;
ляляля ...
При сборке выдаёт
[Error] Unit2.pas(231): Record, object or class type required- выдаёт, ругаясь на IP
|
Правильно компилятор ругается, IP нужно указывать как строку, т.е.
Код:
ClientSocket1.Host:='114.101.125.36';
__________________
TAleD = class(TUser)
public
function HelpMe(ASubject, ARequest: String): String;
function GiveMeExample(ASubject: String): TStringList;
procedure WriteReview(APost: Integer; ADescription: TStringList);
end;
|