わかりました - これは、php スクリプトを使用してメールを送信することに関する私の以前の質問からの続きです。現在、PEARを使用してメールを送信しています。私が使用するphpスクリプトは次のとおりです（単独で実行すると成功します）：PHPEMail.php
<?php
require_once "Mail.php"; // Pear Mail.php
$from = "FromName <FromName@SomeAddress.com>";
$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 を使用して、いくつかの変数を渡し、Delphi からこのスクリプト (PHPEMail.php) を実行する必要があります。私はこのコードを使用します-これまで成功していません:
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]
Webサーバーに送信される「TheData」に問題があると確信しています。PHPスクリプトはトリガーされません。誰が何がうまくいかないのか考えていますか？
(注: 私は winsock を使用したいのですが、サード パーティのコンポーネントは必要ありません。サーバーである完全なコードは、重量が約 12ko で、一部のハードウェアに組み込まれる予定です)。
最後に最終コードを参照してください。
サーバー ログに POST が表示されなかったので、コードを改善しました (エラー メッセージもいくつかあります)。現在、サーバーのログは、送信されたパケットの痕跡を示しています...つまり、通常のIDと時間に加えて、文字「P」...おそらく「POST」(送信されたデータ)という単語の最初の文字です。したがって、「Send()」コマンドを調査する必要があります。（私はDelphi 2009を使用しています）。winsock または send コマンドからエラーが発生しません。
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;
POST を待機する pearemail.php スクリプト:
<?php
require_once "Mail.php";
$from = "name <name@tatata.com>";
$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>");
}
?>