Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

NET SEND в Делфи с переменными [D7, XP]

Артем © (2008-11-15 00:32:00)
Привет всем!
Вот хочу написать прогу для отсылки сообщений по сети через команду NET SEND(командная строка) вобщем написал только с кнопкой а как сделать с переменным ip адресом и переменным сообщением у меня не получается вечно какаято ошибка, вот код что написал для кнопки:

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
for i:=0 to 10 do
begin
WinExec ('NET SEND 10.10.8.85 Hi!',SW_HIDE);
sleep(10);
end;

end;

Вот это работает оно отсылает все но не исправлять же все время в исходнике ип адрес и текст сообщения, у меня с присвоиванием плохо допустим обьявили переменную ip, присваивание будет так? ip:=LabeledEdit1.text;

Вобщем помогите создать две переменные замисть ip адреса 10.10.8.85 и текста.
Спасибо зарание!

Артем (2008-11-15 22:17:00) [1]
Все спасибо большое всем, сделал)

Anatoly Podgoretsky (2008-11-15 14:39:00) [2]
[Error] Unit1.pas(15): Unsatisfied forward or external declaration: 'TForm1.LabeledEdit1Change'

Зачем оно тебе, если оно ничего не делаетю

Andy BitOff (2008-11-15 14:02:00) [3]
> Артем (15.11.08 11:24) [6]
> Ошибки:
> [Error] Unit1.pas(32): Incompatible types: 'String' and
> 'PAnsiChar'

Это легко найдешь в интернете.

> Артем (15.11.08 11:24) [6]
> Ошибки:
> [Error] Unit1.pas(15): Unsatisfied forward or external declaration:
> 'TForm1.LabeledEdit1Change'
> [Error] Unit1.pas(16): Unsatisfied forward or external declaration:
> 'TForm1.LabeledEdit2Change'

Это... Ну, на этом сообщении (в IDE) сделай двойной клик, обозри то, что увидвишь. Для окончательного осознания нажми F1.

Артем (2008-11-15 11:24:00) [4]
Я новичек в этом показал как смог написать для вашего понятия)
В начале эта прога работала с одной кнопкой только для массива потом у меня возникла идея сделать чтото наподобии переписки только вставить ип адрес и текст. Тот код все равно не комплируется(
Скоротил до минимума:
begin
WinExec ('NET SEND ' + LabeledEdit1.text + ' ' + LabeledEdit2.text, SW_HIDE);
sleep(10);
end;

Ошибки:
[Error] Unit1.pas(32): Incompatible types: 'String' and 'PAnsiChar'
[Error] Unit1.pas(15): Unsatisfied forward or external declaration: 'TForm1.LabeledEdit1Change'
[Error] Unit1.pas(16): Unsatisfied forward or external declaration: 'TForm1.LabeledEdit2Change'
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

Германн (2008-11-15 01:27:00) [5]

> Артем (15.11.08 00:32)

Спамеры - must die!

> Артем (15.11.08 00:55) [1]
>
> Ну чтото в этом роде:
>

Слава богу (ну или кто там его замещает в его отсутствие:), что автор вопроса просто "не бум-бум"!
:)

AndreyV (2008-11-15 01:17:00) [6]
> [1] Артем (15.11.08 00:55)

Так ещё и цикл. Ты хочешь 11 раз послать одно и то же?

AndreyV (2008-11-15 01:10:00) [7]
> [1] Артем (15.11.08 00:55)

Ну и зачем тебе обработчики OnChange, да ещё и с локальными переменными, да ещё и типа real. Пиши сразу:
WinExec ('NET SEND ' + LabeledEdit1.text + ' ' + LabeledEdit2.text, SW_HIDE);

Andy BitOff (2008-11-15 01:10:00) [8]
> Артем (15.11.08 00:55) [1]

Это не серьёзно. Не показывай ЭТО никому. ЭТО даже не скомпилируется.

Артем (2008-11-15 00:55:00) [9]
Ну чтото в этом роде:

procedure TForm1.LabeledEdit1Change(Sender: TObject);
var ip:real;
begin
ip:=strtofloat(LabeledEdit1.text);
end;

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
for i:=0 to 10 do
begin
WinExec ('NET SEND'+ip+' '+mg,SW_HIDE);
sleep(10);
end;

end;

procedure TForm1.LabeledEdit2Change(Sender: TObject);
var mg:real;
begin
mg:=strtofloat(LabeledEdit2.Text);
end;

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »