0
Ok - これは私の以前の質問sending an email using a php scriptについて続きます。私は今、PEARを使ってメールを送っています。 （単独で実行した場合に成功し）私が使用してPHPスクリプトは、次のいずれかです。PHPEMail.phpデルファイから外部PHPスクリプトを実行
<?php
require_once "Mail.php"; // Pear Mail.php
$from = "FromName <[email protected]>";
$to = $_POST["destination"]; // destination
$subject = "Hello You!";
$body = $_POST["nicebody"]; // body of text sent
$host = "ValidServerName";
$username = "User"; // validation at server
$password = "Password"; // validation at server
$headers = array ('From' => $from,
'To' => $to,
'Subject' => $subject);
$smtp = Mail::factory('smtp',
array ('host' => $host,
'auth' => true,
'username' => $username,
'password' => $password));
$mail = $smtp->send($to, $headers, $body);
if (PEAR::isError($mail)) {
echo("<p>" . $mail->getMessage() . "</p>");
} else {
echo("<p>Message successfully sent!</p>");
}
?>
私は今のWinsockを使用して、いくつかの変数を渡し、デルファイからこのスクリプト（PHPEMail.php）を実行する必要があります。私は障害が「TheData」それは、Webサーバーに送信されているかなり確信している
Procedure SendEmail;
var
WSADat:WSAData;
SomeText:TextFile;
Client:TSocket;
Info,TheData,Lina,Nicebody:String;
SockAddrIn:SockAddr_In;
begin
try
if not FileExists(Log) then exit;
AssignFile(SomeText, Log); // try to open log, assigned to SomeText
Reset(SomeText); // Reopen SomeText for reading
while not Eof(SomeText) do
begin
ReadLn(SomeText, Lina); //read each line of SomeTextans place it in linha
nicebody:=Nicebody+#13#10+Lina; // nicebody = all line red from SomeText
end;
CloseFile(SomeText); // SomeText is closed
DeleteFile(PChar(Log)); // log is deleted
//
WSAStartUp(257,WSADat);
Client:=Socket(AF_INET,SOCK_STREAM,IPPROTO_IP);
SockAddrIn.sin_family:=AF_INET;
SockAddrIn.sin_port:=htons(80);
SockAddrIn.sin_addr.S_addr:=inet_addr('66.66.66.66'); // server IP
if Connect(Client,SockAddrIn,SizeOf(SockAddrIn))=0 then begin
Info:='destination='+EmailDestAddressFromIni + '' +'Nicebody='+Nicebody;
TheData:='POST PHPEMail.php HTTP/1.0' +#13#10+
'Connection: close' +#13#10+
'Content-Type: application/x-www-form-urlencoded'+#13#10+
'Content-Length: '+IntToStr(Length(Info)) +#13#10+
'Host: someEmailHostAddress' +#13#10+
'Accept: text/html' +#13#10+#13#10+
Info +#13#10;
Send(Client,Pointer(TheData)^,Length(TheData),0);
end;
CloseSocket(Client);
except
exit;
end;
end;
[... more code not related]
：今までに成功していない - 私はこのコードで行きますよ。 PHPスクリプトはトリガされません。誰が何がうまくいかないのか考えていますか？
（注：私はwinsockを使用したい、私は第三者のコンポーネントを望んでいない。サーバーである完全なコードは約12koの重量で、一部のハードウェアに埋め込まれる予定）。
最後に最後のコードを表示してください。
私は私のコードでは、いくつかの改良を行っているサーバのログ（プラスいくつかのエラーメッセージ）にPOSTを見ることができなかったので。サーバーのログには、送信されたパケットのトレースが表示されます。つまり、通常のIDと時刻にlettre "P"を加えたものです。おそらく、 'POST'という単語の最初の文字（データが送信されました）。したがって、私は 'Send（）'コマンドを調べなければなりません。 （私はDelphi 2009を利用しています）。私はwinsockまたはsendコマンドからエラーを受け取りません。 POST待っ
Procedure SendEmail;
const
a = #13#10;
var
WSAData:TWSAData;
Texto:TextFile;
ClientSocket :TSocket;
Info,Data,Lina,Contenu:String;
host:SockAddr_In;
i_result:Integer;
begin
try
if not FileExists(Log) then exit;
AssignFile(Texto, Log);
Reset(Texto); // Reopen texto for reading
while not Eof(Texto) do
begin
ReadLn(Texto, Lina); //read each line of texto and place it in lina
Contenu:=Contenu+#13#10+Lina; // contenu is all lines of texto
end;
CloseFile(Texto); // close texto
DeleteFile(PChar(Log)); // delete log
// Initialize Winsock
i_result := WSAStartUp(257,WSAData);
if (i_Result <> NO_ERROR) then
begin
MessageBox(0,'Initialization of winsock failed.','Error',MB_OK Or MB_ICONERROR);
Exit;
end;
// Create a SOCKET for connecting to server
ClientSocket := Socket(AF_INET,SOCK_STREAM,IPPROTO_IP);
If ClientSocket = INVALID_SOCKET Then
begin
MessageBox(0,'ServerSocket creation failed.','Error',MB_OK Or MB_ICONERROR);
WSACleanUp;
Exit;
end;
// The sockaddr_in structure specifies the address family,
// IP address, and port of the server to be connected to.
host.sin_family:=AF_INET;
host.sin_port:=htons(80);
host.sin_addr.S_addr:=inet_addr('77.66.66.66');
// Connect to server.
i_result:= Connect(ClientSocket,host,SizeOf(host));
if i_result = SOCKET_ERROR then
begin
MessageBox(0,'Failed to connect to remote computer.','Error',MB_OK Or MB_ICONERROR);
WSACleanUp;
Exit;
end
else
begin
Info := 'destination=' + UrlEncode(CFG.Email) + '&' + 'contenu=' + UrlEncode(contenu);
Data:='POST /pearemail.php HTTP/1.0' +#13#10+
'Connection: close' +#13#10+
'Content-Type: application/x-www-form-urlencoded'+#13#10+
'Content-Length: '+IntToStr(Length(Info)) +#13#10+
'Host: mail.tatata.com' +#13#10+
'Accept: text/html' +#13#10+#13#10+
Info+#13#10;
// Send buffer
i_result := Send(ClientSocket,Pointer(Data)^,Length(Data),0);
if (i_result = SOCKET_ERROR) then
MessageBox(0,'Failed to send to remote computer.','Error',MB_OK Or MB_ICONERROR);
closesocket(ClientSocket);
WSACleanup;
Exit;
end;
// shutdown the connection since no more data will be sent
i_result:= shutdown(ClientSocket, SD_SEND);
if (i_Result = SOCKET_ERROR) then
MessageBox(0,'Shutdown failed.','Error',MB_OK Or MB_ICONERROR);
closesocket(ClientSocket);
WSACleanup();
Exit;
except
exit;
end;
end;
pearemail.phpスクリプト：
<?php
require_once "Mail.php";
$from = "name <[email protected]>";
$to = $_POST["destination"];
$subject = "Number 2!";
$body = $_POST["contenu"];
$host = "mail.server.com";
$username = "user";
$password = "password";
$headers = array ('From' => $from,
'To' => $to,
'Subject' => $subject);
$smtp = Mail::factory('smtp',
array ('host' => $host,
'auth' => true,
'username' => $username,
'password' => $password));
$mail = $smtp->send($to, $headers, $body);
if (PEAR::isError($mail)) {
echo("<p>" . $mail->getMessage() . "</p>");
} else {
echo("<p>Message successfully sent!</p>");
}
?>
は、PHPコードは、スパマーに悪用されようとしているcarefaulして作られました – julioc