| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

передать и принять несколько параметров [D7, WinXP]

Zalum ©   (2009-05-12 14:36:00) 

Удалено модератором
Примечание: Не устал ветки плодить?

---

Zalum   (2009-05-12 15:09:00) [1]

Нашел выход из ситуации, хотя может и коряво, но работает:

передаю параметры:
HForm := FindWindow(PChar('TMainForm'), 0);
    with ParamCmd do
    begin
      dwData := 0;
      cbdata := strlen(pchar(ParamStr(1)+#13+ParamStr(2)))+1;
      lpData := pchar(ParamStr(1)+#13+ParamStr(2) );
    end;
    SendMessage(HForm,WM_COPYDATA,application.Handle,Longint(@ParamCmd));

принимаю

procedure TMainForm.Getmessage(var msg: TWMCopyData);
var
stext:array[0..99] of Char;
begin
StrLCopy
(stext,Msg.CopyDataStruct.lpData,Msg.CopyDataStruct.cbData) ;
 for i:=0 to  Length(stext) do begin
   if isDelimiter(#13,stext,i) then
   begin
     a1:=Copy(stext,0,i-1);
     a2:= Copy(stext,i+1,Length(stext));
   end;
 end;
 ShowMessage('первый:'+a1+'второй:'+a2);
end;

---

Юрий Зотов   (2009-05-12 14:56:00) [2]

1. > как быть, если мне нужно передать несколько параметров

Можно так, как Вы делаете, но если передаются параметры разных типов, то возникнут сложности с их выделением. В этом случае можно упаковать все параметры в массив байт (формат: тип, длина, тело...), а размер и адрес массива передавать через WM_COPYDATA.

Тип - это число, например: 1 - Integer, 2 - Boolean, 3 - String и т.д.  

2. > как тогда уже принятые значения разбросать по разным переменным

Для массива байт - в цикле (while Position < Size):
- читаем тип, берем соответсвующую переменную;
- читаем длину (если тип не имеет фиксированную длину)
- читаем тело

Для строк - использовать комбинацию Pos + Copy + Delete, либо так:
StringList.Text := строка_с_разделителями_#13#10

---

Наверх