Ayuda con este proyecto!!!

[FideRosado]

Hola amigos, aca estoy tratando de entender este proyecto jje. se trata nadamenos que de un servidor POP para mis clientes de la red, estoy pensando en usar tambien SMTP server.

aca estoy viendo algo parecido solo que no logro entender bien..
espero que alguno de ustedes se interesen en el, ya que es algo muy util..

POP server
http://www.devarticles.com/c/a/Delph...a-POP3-Server/

SMTP server
http://www.devarticles.com/c/a/Delph...n-SMTP-Server/

[FideRosado]

Pues tambien estoy pensando en vincular MySQL con dicha aplicacion, ya que es facil de trabajar y ademas , en la webclient uso php para recojer los datos, y solo la aplicacion hace su trabajo ejej..

[FideRosado]

en el componente idpop3 se encuentra esta funccion

Código Delphi [-]
function TIdPOP3.CheckMessages: longint;
var
  s: string;
begin
  Result := 0;
  SendCmd('STAT', wsOk);    {Do not Localize}
  // Only gets here if exception is not raised
  s := LastCmdResult.Text[0];
  if Length(s) > 0 then begin
    Result := StrToInt(Copy(s, 1, IndyPos(' ', s) - 1));    {Do not Localize}
  end;
end;

pero que sucede pues que le envio este parametro en esta forma y sus posibles variantes y devuelve error

Código Delphi [-]
procedure TForm1.IdPOP3Server1STAT(ASender: TIdCommand);
begin
  ASender.Reply.SetReply( OK , IntToStr(40)+'  '+IntToStr(40) );// esta es una
  ASender.Reply.SetReply( 1 , IntToStr(40)+'  '+IntToStr(40) );// esta es la otra
end;

como veran, no me sale.. si keda con el OK me da error en el OK..
ahy alguien aca que sepa como es..

[FideRosado]

hola necesito que ustedes me revisen estas lineas y me diga si estan correctas,pues creo que me falte algo porque no me funcionan.

procedure TfrmMain.IdPOP3Server1TOP(ASender: TIdCommand; AMessageNum, ANumLines: Integer);
begin
// Aquí es donde el client ha pedido a las líneas TOP X de una determinado Mensaje a ser enviado a ellos

if (AMessageNum > 0) AND (ANumLines > 0) then begin

ASender.Thread.Connection.WriteLn('+OK');
ASender.Thread.Connection.WriteLn('qFrom: [email protected]');
ASender.Thread.Connection.WriteLn('To: [email protected] ');
ASender.Thread.Connection.WriteLn('Subject: este es el top');
ASender.Thread.Connection.WriteLn('');
ASender.Thread.Connection.WriteLn('Message: de cojones');

end;
end;

[Casimiro Noteví]

Recuerda poner los tags al código fuente, ejemplo:



Gracias

[FideRosado]

ke sabes de este tema casimiro.