Показать сообщение отдельно
  #10  
Старый 13.10.2013, 04:30
Аватар для Alegun
Alegun Alegun вне форума
LMD-DML
 
Регистрация: 12.07.2009
Адрес: Богородское
Сообщения: 3,025
Версия Delphi: D7E
Репутация: 1834
По умолчанию

Не, послать инфу с параметрами можно, например так
Код:
function GetPostParam(const PostData: OleVariant): string;
var
V: Variant;
P: PChar;
lb, hb, i: Integer;
begin
V:=Variant(TVarData(PostData).VPointer^);
if VarIsArray(V) then begin
P:=VarArrayLock(V);
try
  lb := VarArrayLowBound(V, 1);
  hb := VarArrayHighBound(V, 1);
  SetString(Result, P, hb - lb + 1);
  for i := 1 to Length(Result) do if Result[i] = #0 then begin
  SetLength(Result, i - 1); Break; end; Exit;
finally VarArrayUnlock(V);   end;
end;
Result:= '';
end;
вопрос в том, что именно...
Ответить с цитированием