🚀 go-pugleaf

> Czy ktoś z Was może mi pomóc, naprowadzić jak zrealizować taką funkcjonalność


Obejrzyj przykład PHP
masz tam funkcję "http_build_query"
np. na tej stronie http://http_build_query.onlinephpfunctions.com/
sprawdz co jest wynikiem funkcji dla Twoich danych :)

To powinno pomóc jak wyglądają tablice w POST :D

M

dziękuje za sugestie

wykonałem ten przykładowy skrypt dla danych:

[
    'to'            => [
        'test01@domein.pl' => [
            'message_id'    => 'test001@domain.com',
            'reciver_name'  => 'Jan Kowalski'
        ],
        'test02@domein.pl' => [
            'message_id'    => 'test002@domain.com',
            'reciver_name'  => 'Janusz Nowak'
        ]
    ],
    'smtp_account'  => '1.smtpaccount.smtp',
    'subject'       => 'Test',
    'html'          => '<p>Some HTML....</p>',
    'from'          => 'from_address@domain.com',
    'from_name'     => 'Office'
    ]
]; 

czyli

$data = array(
    'to' => array(
        'test01@domein.pl' => array(
            'message_id' => $i.microtime().'@domain.com'
        ),
        'test02@domein.pl' => array(
            'message_id' => $i.microtime().'@domain.com'
        ),
    ),
    'smtp_account' => '1.smtpaccount.smtp',
    'subject' => 'Test',
    'html' => '<p>Some HTML....</p>',
    'from' => 'from_address@domain.com',
    'from_name' => 'Office',
);

wynikiem wykonania funkcji http_build_query( $data ) jest:

to%5Btest01%40domein.pl%5D%5Bmessage_id%5D=0.14756300+1495466398%40domain.com&to%5Btest02%40domein.pl%5D%5Bmessage_id%5D=0.14758000+1495466398%40domain.com&smtp_account=1.smtpaccount.smtp&subject=Test&html=%3Cp%3ESome+HTML....%3C%2Fp%3E&from=from_address%40domain.com&from_name=Office

 
tu już coś widać ale martwi mnie to kodowanie, no i zastanawiam się czy można to tak wprost potraktować jako szablon, zmieniając tylko adresy email, treść itd  

rozkodowałem jeszcze ten parametr i teraz wygląda czytelnie

to[test01@domein.pll][message_id]=0.14756300 1495466398@domain.com&to[test02@domein.pl][message_id]=0.14758000 1495466398@domain.com&smtp_account=1.smtpaccount.smtp&subject=Test&html=<p>Some HTML....</p>&from=from_address@domain.com&from_name=Office

samo wysyłanie maili poprzez API działa ale mam jeszcze problem z załącznikami typu pliki png lub jpeg

jako jeden z parametrów API jest wysłanie pliku zakodowanego base64

plik koduje taką funkcją:

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;

po odbiorze tak przygotowanego maila widać dołączone do niego pliki ale są nieczytelne, podczas podglądu system sygnalizuje uszkodzenie

próbowałem takie same pliki zakodować i wysłać za pomocą skryptu PHP, i mail wysłany w ten sposób przychodzi z prawidłowymi załącznikami, są do odczytu

podejrzałem źródła obu maili oraz zawartość zakodowanych plików poprzez Delphi i php i wygląda na to że się różnią

Wygląda na to że zakodowanie pliku w Delphi jest nieprawidłowe

Uważacie że ten sposób kodowanie base64 który zastosowałem jest zły?

Czy znacie jakiś inny sposób kodowania base64 tak aby był zgodny z tym z php?

z góry dziękuję za sugestie

  

> Czy znacie jakiś inny sposób kodowania base64 tak aby był zgodny z tym z php?
> 
> z góry dziękuję za sugestie
> 
Musiał byś przesłać kompletny program :)
Bo ma moje oko to Delphi generuje OK i PHP taki sam wynik zwraca.
Moze masz problem gdzieś wczesniej ?


M

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