pop.foxmail.com.cnsmtp.foxmail.com.cn mail.bodachina.com
mail.bodachina.commail.bodachina.com 21cn.com
pop.21cn.comsmtp.21cn.com }//////////////////////////////////////////////////////////// function GetPOPandSMTPFromTxt(FileName, EmailStr: string): string; var i,lenStr:integer; AtEmail,TempStr,POPStr,SMTPStr:string; myFile:TextFile; begin Result:=''; lenStr:=Pos('@',EmailStr); AtEmail:=Copy(EmailStr,lenStr+1,Length(EmailStr)-lenStr); AssignFile(myFile,FileName); Reset(myFile); While not Eof(myFile) do begin Readln(myFile,TempStr); if AtEmail=Copy(TempStr,1,Pos('
',TempStr)-1) then begin POPStr:=Copy(TempStr,Pos('
',TempStr)+3,Pos('',TempStr)-Pos('
',TempStr)-3); SMTPStr:=Copy(TempStr,Pos('',TempStr)+3,length(TempStr)-Pos('',TempStr)-2); Result:=POPStr+'|'+SMTPStr; end; end; CloseFile(myFile); end; //用法如下: procedure TForm1.Button2Click(Sender: TObject); var POPStr,SMTPStr,myResult:string; begin myResult:=GetPOPandSMTPFromTxt('E:\我的程序\popnsmtp.TXT',Edit1.Text); if myResult<>''then begin POPStr:=Copy(myResult,1,Pos('|',myResult)-1); SMTPStr:=Copy(myResult,Pos('|',myResult)+1,length(myResult)); showmessage(POPSTr); showmessage(SMTPStr); end; end;