Send beskeder og filer via Indy komponenter

Følgende har fungeret for mig.. men der er tale om afsendelse af mails UDEN filer.. men du kan måske blive hjulpet lidt på vej.

Der henvises til komponenterne: IdSMTP og IdMessage... jeg tænker at det med attachment er en detalje som ikke er svær at indsætte i koden.. men jeg ved ikke umiddelbart hvordan... Men følgende kode virker og sender en besked afsted - dog uden attachment.

procedure TForm1.Button1Click(Sender: TObject);
begin
  with IdMessage1 do
  begin
    From.Text := 'prototype@prototype.dk';
    Sender.Text := 'en maskine';
    Recipients.EMailAddresses := modtager.text;
    Subject := overskrift.text;
    Body := tekst.Lines;
  end;

  with IdSMTP1 do
  begin
    form1.Caption := 'Trying to sendmail via: ' + IdSMTP1.Host;
    try
      Connect;
      Send(IdMessage1);
      Disconnect;
    except on E: Exception do
      begin
        if connected then try disconnect; except end;
        ShowMessage(E.Message);
      end;
    end;
  end;
end;

komponenten IdSMTP skal indstilles.. det er den som sørger for afsendelse.

host = smtp server - f.eks. en ip eller f.eks. smtp.tele.dk
username = sættes til et loginnavn på smtp serveren
password = kodeord til login på smtp serveren.

håber det hjælper dig lidt på vejen mod dit mål :)

Måske.

Det jeg søger er nu ikke via smtp, men mere en client / server løsning.  :)

??.. skal de så gemmes i en DB, eller taler vi om en slags MSN/ICQ ting?

ja vi snakker en slags MSN/ICQ ting. Det skal være sådan at jeg kan overføre en fil eller en besked fra min computer til en mobiltlf eller Handheld PC via GPRS altså TCP/IP

du kan downloade demo'er/eksempler på hjemmesiden: http://www.nevrona.com/Indy/

Personligt aner jeg ikke hvordan det skal gøres - men jeg tror du skal lege lidt med den demo der hedder : TCPStreamClientServer... det er i hverttilfælde den jeg ville starte med.