SDriver sample

gistfile1.txt

procedure TForm1.SendActionExecute(Sender: TObject);
var
  LWebHook: IMessageBuffer;
  LMessage: IMessage;
  LStopWatch: TStopWatch;
  vAttachment: IAttachment;
  vField: IFields;
begin
  LStopWatch := TStopWatch.StartNew;

  LMessage := TMessage.Create(EditMessage.Text + ' [' + TimeToStr(Now) + ']');
  LMessage.UserName := EditUserName.Text;
  LMessage.Icon_URL := EditIcon_URL.Text;
  LMessage.Icon_Emoji := EditIcon_Emoji.Text;
  LMessage.Channel := EditChannel.Text;
  
  vAttachment := LMessage.AddAttachment;
  vField := vAttachment.AddFields;
  vField.Title := 'Title';
  vField.Value := 'Value';

  ///////////////////////////////////////////////////////
  // How can I add a large text-file as attachment here ?
  ///////////////////////////////////////////////////////

  LWebHook := TIncomingWebHook.Create(EditWebHookURL.Text, False);
  LWebHook.Push(LMessage);
  LWebHook.Flush;
end;