[gebs]

Здравствуйте.

Есть процедура:

Код:

procedure Tfm_main.N13Click(Sender: TObject);
var a: string;
    b: string;
    c: string;
begin
a:=fm_main.MyQ.FieldByName('remote_switch_id').AsString;
b:='10.100.10.';
c:= b+a;
showmessage(c);
WinExec (('ping ' + 'c'), SW_SHOW);
//WinExec (('ping ' + '10.100.10.15'), SW_SHOW);
end;

showmessage возвращает - 10.100.10.15

Как заставить работать команду пинг с переменной c
Спасибо.

[dr. F.I.N.]

Код:

procedure Tfm_main.N13Click(Sender: TObject);
var
  a: string;
begin
  a := fm_main.MyQ.FieldByName('remote_switch_id').AsString;
  WinExec (('ping 10.100.10.' + a), SW_SHOW);
end;

[gebs]

Сообщение от dr. F.I.N.

Код:

procedure Tfm_main.N13Click(Sender: TObject);
var
  a: string;
begin
  a := fm_main.MyQ.FieldByName('remote_switch_id').AsString;
  WinExec (('ping 10.100.10.' + a), SW_SHOW);
end;

[DCC Error] Unit1.pas(191): E2010 Incompatible types: 'string' and 'PAnsiChar'

[Aristarh Dark]

Ну как дети малые, чесное слово.

Код:

procedure Tfm_main.N13Click(Sender: TObject);
var a: string;
    b: string;
    c: string;
begin
a:=fm_main.MyQ.FieldByName('remote_switch_id').AsString;
b:='10.100.10.';
c:= b+a;
showmessage(c);
WinExec (('ping ' + PChar(c)), SW_SHOW);
//WinExec (('ping ' + '10.100.10.15'), SW_SHOW);
end;

[gebs]

Сообщение от Aristarh Dark

Ну как дети малые, чесное слово.

Код:

procedure Tfm_main.N13Click(Sender: TObject);
var a: string;
    b: string;
    c: string;
begin
a:=fm_main.MyQ.FieldByName('remote_switch_id').AsString;
b:='10.100.10.';
c:= b+a;
showmessage(c);
WinExec (('ping ' + PChar(c)), SW_SHOW);
//WinExec (('ping ' + '10.100.10.15'), SW_SHOW);
end;

Выдаёт туже ошибку, что и выше указана. Компилятор - D2009

[NumLock]

Код:

WinExec (('ping ' + PAnsiChar(c)), SW_SHOW);

[gebs]

Сообщение от NumLock

Код:

WinExec (('ping ' + PAnsiChar(c)), SW_SHOW);

[DCC Warning] Unit1.pas(184): W1044 Suspicious typecast of string to PAnsiChar
[DCC Error] Unit1.pas(184): E2010 Incompatible types: 'string' and 'PAnsiChar'

[NumLock]

oops)

Код:

WinExec (PAnsiChar('ping ' + c), SW_SHOW);
WinExec (PChar('ping ' + c), SW_SHOW);

[gebs]

Сообщение от NumLock

oops)

Код:

WinExec (PAnsiChar('ping ' + c), SW_SHOW);
WinExec (PChar('ping ' + c), SW_SHOW);

Спасибо за проявленный интерес, но немного опишу что нужно.

Есть набор данных, есть таблица с идентификаторами 1,2,3...254 (id оборудования) id соотвествует ip адресу 10.100.10.1, 10.100.10.102, 10.100.10.3...10.100.10.254. Хотелось бы вставая на определённую строку вызывать команду пинг передавая в неё параметры.


С этим WinExec (PAnsiChar('ping ' + c), SW_SHOW); - вообще ничего не происходит
С этим WinExec (PChar('ping ' + c), SW_SHOW); ошибка -- [DCC Error] Unit1.pas(195): E2010 Incompatible types: 'Char' and 'AnsiChar'

[NumLock]

вот прямо сейчас проверил:

Код:

var
  ip: String;
  s: String;
begin
  ip:='127.0.0.1'; // var
  s:='ping '+ip;
  WinExec(PAnsiChar(s), SW_SHOW);
end;

куда еще подробней - не знаю

[gebs]

Сообщение от NumLock

вот прямо сейчас проверил:

Код:

var
  ip: String;
  s: String;
begin
  ip:='127.0.0.1'; // var
  s:='ping '+ip;
  WinExec(PAnsiChar(s), SW_SHOW);
end;

куда еще подробней - не знаю

Изменил на :

Код:

procedure Tfm_main.N13Click(Sender: TObject);
var
  ip: String;
  s: String;
begin
  ip:=fm_main.MyQ.FieldByName('remote_switch_id').AsString;; // var
  s:='ping '+' 10.100.10.' +ip;
  showmessage(s);
  WinExec(PAnsiChar(s), SW_SHOW);
end;

Мессага нормальная, а дальше командная строка не запуская, просто тишина.

[gebs]

У меня кстати сия процедура не работает:

Код:

var
  ip: String;
  s: String;
begin
  ip:='127.0.0.1'; // var
  s:='ping '+ip;
  WinExec(PAnsiChar(s), SW_SHOW);
end;

[DCC Warning] Unit1.pas(193): W1044 Suspicious typecast of string to PAnsiChar

Delphi 2009

[M.A.D.M.A.N.]

Попробуй вместо String пользовать AnsiString, ну или вместо PAnsiChar использовать PChar .

[gebs]

Благодарю всех. Заработало вот так:

Код:

procedure Tfm_main.N13Click(Sender: TObject);
var
  ip: String;
  s: String;
begin
  ip:=fm_main.MyQ.FieldByName('remote_switch_id').AsString; // var
  s:='ping '+' 10.100.10.' +ip;
  //showmessage(s);
WinExec(PAnsiChar( AnsiString(s)), SW_SHOW);
end;

Видимо это связанос моим незнанием и с d2009

[M.A.D.M.A.N.]

Юзай лучше WinExecA. У меня подозрение, что ты пытался передать анси строку функции принимающей строку в юникоде.