1 (edited by sibprogsistem 2019-06-17 10:44:16)

Topic: тег i (ошибка форума)

ошибка
http://myvisualdatabase.com/forum/misc.php?action=pun_attachment&item=5578&download=0

Post's attachments

Attachment icon Безымянн33ый.png 30.96 kb, 4 downloads since 2019-06-17 

Re: тег i (ошибка форума)

Используйте кнопку code для скрипта

list[i]
Dmitry.

Re: тег i (ошибка форума)

точно... забыл

4 (edited by vovka3003 2019-06-17 18:02:26)

Re: тег i (ошибка форума)

//Ну если с онлайн-конвертером bbcode заморочиться, то и необязательно "code":
var T:TTimer;
   
xhr:variant;

procedure  ReadResponse(resStr:string);
var s:string;
begin
  try
   
s:=xhr.ResponseText;
   
T.Enabled := false;
   
Form1.Button1.Caption:='Успешная отправка';
   
ShowMessage(S);
   
Form1.Button1.Caption:='Отправить';
   
xhr:=0;
 
except
   
Form1.Button1.Caption:='Ожидание...';
 
end;
end;

function WinHttpPost(Url,Data: string):variant;
begin
try
    if
VarType(xhr)<>VarDispatch then
   
xhr := CreateOleObject('WinHTTP.WinHTTPRequest.5.1');
   
xhr.Open('POST',url,true);
   
xhr.setRequestHeader('Content-Type', 'application/x-www-form-urlencoded');
   
xhr.Send(Data);
   
T.Enabled := true;
 
except
   
ShowMessage(ExceptionMessage);
 
end;
end;

//...