Skocz do zawartości

Wysyłanie emaila za pomocą PHP - metoda post w indy


gienek

Polecane posty

Cześć.

Muszę w jakiś sposób rozwiązać wysyłanie wiadomości od użytkownika programu do mnie. Pomyślałem że wykorzystam do tego PHP a w Delphi jedynie wyślę potrzebne dane metodą post.

 

Mam plik mail.php:

<?php
 mail("przyklad@przyklad.pl", "Test",
 $message, "From: $from");
?>

i kod Delphi:

procedure TForm11.Button1Click(Sender: TObject);
var
 StreamIn: TStringStream;
begin
 StreamIn := TStringStream.Create('');
 try
StreamIn.WriteString(Format('message=%s&from=%s', [Memo1.Text,
LabeledEdit1.Text]));
idHTTP1.Post('http://gienq.tk/mail.php', StreamIn);
 finally
 { zwolnienie zasobów }
StreamIn.Free;
 end;
end;

Niestety ale dostaję puste emaile :(. Gdzie popełniłem błąd?

Link do komentarza
Udostępnij na innych stronach

Zarchiwizowany

Ten temat jest archiwizowany i nie można dodawać nowych odpowiedzi.

×
×
  • Utwórz nowe...