NET SEND в Делфи с переменными

← →
Артем (2008-11-15 00:32) [0]

Привет всем!
Вот хочу написать прогу для отсылки сообщений по сети через команду 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 00:55) [1]

Ну чтото в этом роде:

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;

← →
AndreyV © (2008-11-15 01:10) [2]

> [1] Артем (15.11.08 00:55)

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

← →
Andy BitOff © (2008-11-15 01:10) [3]

> Артем (15.11.08 00:55) [1]

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

← →
AndreyV © (2008-11-15 01:17) [4]

> [1] Артем (15.11.08 00:55)

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

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

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

Спамеры - must die!

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

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

← →
Артем (2008-11-15 11:24) [6]

Я новичек в этом показал как смог написать для вашего понятия)
В начале эта прога работала с одной кнопкой только для массива потом у меня возникла идея сделать чтото наподобии переписки только вставить ип адрес и текст. Тот код все равно не комплируется(
Скоротил до минимума:
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"

> Артем (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.

[Error] Unit1.pas(15): Unsatisfied forward or external declaration: "TForm1.LabeledEdit1Change"

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

← →
Артем (2008-11-15 22:17) [9]

Все спасибо большое всем, сделал)

NET SEND в Делфи с переменными Найти похожие ветки