کار با API ربات تلگرام در دلفی 7

[mjdeveloper]

نمیشه گفت خطا میده . معمولا ایندی برای گزارش روی IDE در حالت Debug این خطا رو نمایش میده. برای خفت کردنش قسمت Exception رو تغییر بدید حله.

procedure TForm1.btnSendMsgClick(Sender: TObject);Var

  Stream: TStringStream;

  Params: TIdMultipartFormDataStream;

  IDUser : String;

  Text : WideString;

  msg : WideString;

  Src : string;

  LHandler: TIdSSLIOHandlerSocket;

begin

  API := edtAPI.Text;

  IDUser := Edit1.Text;

  Text := edtMessage.Text;

  try

    try

      msg := '/sendmessage';

      Stream := TStringStream.Create('');

      Params := TIdMultipartFormDataStream.Create;

      Params.AddFormField('chat_id',IDUser);

      Params.AddFormField('text',UTF8Encode(edtMessage.T  ext));





      LHandler := TIdSSLIOHandlerSocket.Create(nil);

      IdHTTP1.ReadTimeout := 30000;

      IdHTTP1.IOHandler:=LHandler;

      LHandler.SSLOptions.Method := sslvTLSv1;

      LHandler.SSLOptions.Mode := sslmUnassigned;

      IdHTTP1.HandleRedirects := true;

      memoRequest.Text := BaseUrl + API + msg;

      IdHTTP1.Post(BaseUrl + API + msg, Params, Stream);

      memoResponse.Text := Stream.DataString;

    finally

      Params.Free;

      Stream.Free;

    ENd;

  except

    on E: EIdHTTPProtocolException do

    begin

      memoRequest.Text := IdHTTP1.Response.RawHeaders.Text;

      memoResponse.Text :=  IdHTTP1.Response.ResponseText;

      if E.ReplyErrorCode = 403 then

      begin

        ShowMessage('Bot was blocked by the user');

      end;

    end;

  end;

end;