Arşiv Anasayfa Delphi .Net Soruları

Sayfalar: 1

Php post olayı ??? Gönderen: sanalboq Tarih: 05 February 2008 16:10:07
bu php kodunu kullanarak delphide mail atmayı istiyorum

<?php
 
//Bilgileri önceden alıyoruz
 
$kime = "msn@mertural.com";
 
$kimden = "mert@mertural.com";
 
$konu = "Mail Gonderiyorum";
 
$mesaj = "Merhaba Bu benim php ile ilk mailim...";
 
$bilg = "From: $kimden";
 
//ve de mail gönderme kısmı
 
mail($kime, $konu, $mesaj, $bilg); 
 
?>

formumda
2 edit yollayan kişi ve yollanan kişi yazılacak
1 memo mesaj
1de buton olucak
idhttp kullanrak bu php dosyasına nasıl post yapabilirim
yardımlarınız için teşekkuyrler

---

Ynt: Php post olayı ??? Gönderen: barutali Tarih: 05 February 2008 18:04:24

var
str:tstringlist; 
response:tstringstream;
 
begin 
str := TStringList.Create;
Response:= TStringStream.Create('');
try 
str.Clear;
IdHTTP1.Disconnect;
str.Add('kime=' + edit1.Text);  // Formdaki adı ben öylesine yazdm bunu
str.Add('kimden=' + Edit2.Text); // Formdaki adı ben öylesine yazdm bunuda
str.Add('konu=' + Edit3.Text); // Formdaki adı ben öylesine yazdm bunuda
str.Add('bilgi=' + Edit4.Text); // Formdaki adı ben öylesine yazdm bunuda
str.Add('mesaj=' + memo1.text); // Formdaki adı ben öylesine yazdm bunuda
 
IdHTTP1.Post('POST ADRESİ NERESİYSE ONU YAZ',str,Response);
memo1.text := Response.DataString;
except
on e: exception do begin
Memo1.text:= '';
end; 
end; 
str.Free; 
Response.Free; 
 
if Memo1.Text = 'HATA' then
Application.MessageBox('Bilgiler Gönderilemedi Lütfen Tekrar Deneyiniz', 'HATA', MB_ICONERROR)
else
begin 
Application.MessageBox('Bilgiler Gönderildi', 'Uyarı', MB_ICONINFORMATION);
 

Bu soruyu bi sitede daha gördüm sanki :S

---