Вверх ↑
Этот топик читают: Гость
Ответов: 8926
Рейтинг: 823
#616: 2013-03-13 17:44:13 ЛС | профиль | цитата
Да уж сразу вот так, больше прибыль
Конденсатор.jpg
карма: 19

0
файлы: 1Конденсатор.jpg [18KB] [574]
Разработчик
Ответов: 26158
Рейтинг: 2127
#617: 2013-03-13 17:46:29 ЛС | профиль | цитата
Леонид писал(а):
Да уж сразу вот так, больше прибыль

Гы, такое я в натуре видел
карма: 22

0
Ответов: 1731
Рейтинг: 68
#618: 2013-04-18 01:08:01 ЛС | профиль | цитата
Знает кто как продвигать видео ?
Я например сделал, а не кто не знает об этом.
[flood]http://www.youtube.com/watch?feature=player_detailpage&v=NYI-WI6WJL4[/flood]
карма: 1

0
Ответов: 1731
Рейтинг: 68
#619: 2013-05-11 17:44:21 ЛС | профиль | цитата
Почему компилятор ругается на:
uses
SysUtils,Sockets;

type
> TCPClient1 : TTcpClient;


'=' expected but ':' found

карма: 1

0
Ответов: 16884
Рейтинг: 1239
#620: 2013-05-11 17:56:45 ЛС | профиль | цитата
Вместо ":" должно быть "="
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 1731
Рейтинг: 68
#621: 2013-05-11 18:55:14 ЛС | профиль | цитата
Tad, странно, но в документации написано TCPClient1 : TTcpClient;
Хм
карма: 1

0
Ответов: 16884
Рейтинг: 1239
#622: 2013-05-11 19:12:09 ЛС | профиль | цитата

type
TForm1 = class(TForm)
TcpClient1: TTcpClient;
Угу
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 1731
Рейтинг: 68
#623: 2013-05-11 20:07:38 ЛС | профиль | цитата
Tad, Может, потому что я консольную утилиту делаю?
Теперь ругается на TCPClient1.RemoteHost := ip;
Пишет, что ожидается идентификатор метода.
карма: 1

0
Ответов: 4630
Рейтинг: 749
#624: 2013-05-11 21:43:09 ЛС | профиль | цитата
Cosinus, так ты бы подробнее говорил, что тебе нужно. Поскольку в первом примере было слово type, Tad (и компилятор) логично предположил, что ты хочешь переопределить тип TTcpClient, подменив его на TcpClient1 и дал ответ. Теперь оказывается, TcpClient1 - это переменная, с которой ты хочешь работать. Ты бы показал весь код. Как минимум, в секции type нельзя делать TCPClient1.RemoteHost := ip.
Раз утилита консольная, предположу, должно быть что-то такое:

#pas
program Project1;

uses Windows, SysUtils, Sockets;

var // Не "type"!

TcpClient1: TTcpClient;

begin
TcpClient1 := TTcpClient.Create;
TCPClient1.RemoteHost := ip;
TCPClient1.Free;
end.
карма: 26

0
Ответов: 1731
Рейтинг: 68
#625: 2013-05-11 22:07:23 ЛС | профиль | цитата
Netspirit, извините, но весь код я показать не могу.
Сделал как вы говорили, но теперь ошибка Not enough actual parameters.
В строке с TcpClient1 := TTcpClient.Create;
карма: 1

0
Ответов: 16884
Рейтинг: 1239
#626: 2013-05-11 23:29:12 ЛС | профиль | цитата
Cosinus писал(а):
извините, но весь код я показать не могу.
Тогда и ты извини.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 9906
Рейтинг: 351
#627: 2013-05-12 00:04:44 ЛС | профиль | цитата
Смешно
карма: 9

0
Гость
Ответов: 17029
Рейтинг: 0
#628: 2013-05-12 01:00:53 правка | ЛС | профиль | цитата


Редактировалось 4 раз(а), последний 2021-05-21 12:21:33
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#629: 2013-05-12 11:23:39 ЛС | профиль | цитата
Cosinus писал(а):
я консольную утилиту делаю
на Delphi или в HiAsm ?
Если на Delphi, то смотри в DemosInternetChat
Если в HiAsm, то в примерах InternetTCP_Chat

карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 4630
Рейтинг: 749
#630: 2013-05-12 11:44:16 ЛС | профиль | цитата
Cosinus писал(а):
ошибка Not enough actual parameters

Для работы всё равно нужно смотреть документацию по классу TTCPClient. Там же можно увидеть параметры для метода Create.
карма: 26

0
Сообщение
...
Прикрепленные файлы
(файлы не залиты)