🚀 go-pugleaf

jak pisałem wcześniej cały program jest oparty na 4 komponentach i po dodaniu parametrów: temat, treść html, odbiorca wiadomości, załączniki, wysyłane są postem:

function EncodeFile(const FileName: string): AnsiString;
var
   stream: TMemoryStream;
begin
     stream := TMemoryStream.Create;
     try
    	stream.LoadFromFile(Filename);

    	result := TNetEncoding.Base64.EncodeBytesToString(Stream.Memory, Stream.Size);
     finally
            stream.Free;
     end;
end;

procedure TForm1.Button9Click(Sender: TObject);
var
   jValue:TJSONValue;
begin
     try
     	MemoContent.Lines.Clear;

	RESTRequest5.Params[2].Value:='Temat wiadomości';

        RESTRequest5.Params[3].Value:=TNetEncoding.URL.Encode('<p>Jeszcze więcej Some HTML..<BR>ĄŻŚŹĆŃŁÓĘ<BR>ążśźćńłóę<BR>.ąść</p>');

     	with RESTRequest5.Params.AddItem() do
    	begin
             Name:='to[adres_email_odbiorcy_1@wp.pl][message_id]=0.49443700 1495599985@domain.com&to[adres_email_odbiorcy_1@wp.pl][reciver_name]';
             Value:='Imie Nazwisko';
             Kind:='pkGETorPOST';
        end;

     	with RESTRequest5.Params.AddItem() do
    	begin
             Name:='to[adres_email_odbiorcy_2@wp.pl][message_id]=0.49443700 1495599985@domain.com&to[adres_email_odbiorcy_2@wp.pl][reciver_name]';
             Value:='Imie Nazwisko';
             Kind:='pkGETorPOST';
        end;

        with RESTRequest5.Params.AddItem() do
        begin
             Name:='files[0][name]=plik01.png&files[0][mime]=image/png&files[0][inline]=plik01.png&files[0][content]';
             Value:=EncodeFile('D:\pliki\html\newsletter\plik01.png');
             Kind:='pkGETorPOST';
             Options := [poDoNotEncode];
        end;

        with RESTRequest5.Params.AddItem() do
        begin
             Name:='files[1][name]=plik02.png&files[1][mime]=image/png&files[1][inline]=plik02.png&files[1][content]';
             Value:=EncodeFile('D:\pliki\html\newsletter\plik02.png');
             Kind:='pkGETorPOST';
             Options := [poDoNotEncode];
        end;

        with RESTRequest5.Params.AddItem() do
        begin
             Name:='files[2][name]=plik03.png&files[2][mime]=image/png&files[2][inline]=plik03.png&files[2][content]';
             Value:=EncodeFile('D:\pliki\html\newsletter\plik03.png');
             Kind:='pkGETorPOST';
             Options := [poDoNotEncode];
        end;

        RESTRequest5.Execute;
     
        jValue:=RESTResponse5.JSONValue;
     
	MemoContent.Lines.Add(jValue.ToString);
     	MemoContent.Lines.Add(RESTResponse5.Content);
        MemoContent.Lines.Add(RESTResponse5.StatusCode.ToString + ' ' + RESTResponse5.StatusText);
  
     except
          on e: Exception do MemoContent.Lines.Add(e.Message);
    end;
end; 

mogę ci podesłać cały ten projekcik jak chcesz, ale to już chyba mailem