Splitte besked hvis den er mere en 120 tegn

if Length(din_besked) > 120 then
  begin
    besked1 := copy(din_besked, 1, 120)
    besked2  ....................

    og så vidre og så vidre....

/ZIRON

Hm forstår jeg ikke helt, hvordan vil du smide det ind?

hvad er det at du ikke forstår?

/ZIRON

Mere eller mindre det hele..
hvordan vil du køre den?
SMS\'erne skal sendes via et SMTP komponent

ja hvis beskeden er længere end 120, så bruger du bare det som jeg startede på ovenfor og smider så fx. besked1 ind i en smpt og afsted med beskeden og så det samme med besked 2.

Ja men hvordan?
sådan lidt på nubii ville være rart :)

kig på det eksempel der ligger i din delphi mappe, under internet og så smtp, der kan du så hvordan du sender en mail...

/ZIRON

Jeg ved godt hvordan jeg sender en mail, men ikke hvordan jeg skal få den til at splitte beskeden op.

brug repeat & until og så indtil til og klip i beskeden indtil den er 0 teng lang, inden i repaet lykken sender du også..

/ZIRON

Kan du ikke lave et lille eks?

hmm kan lige prøve...

/ZIRON

sådan:

var
besked : String;
begin
  besked := \'hej hej lille mor nu kommer det der lille eks. til darkside, han er også så uuuuuuuuu :) ehj ehj igen jeg synes lige at jeg ville skrive lidt mere end bare det andet, så her har du lidt mere, håber at du overlever? ellers ved jeg sku ikke hvad jeg skal\';
  repeat
    begin
      if length(besked) > 120 then
        begin
          ShowMessage(copy(besked,1,120));
          Delete(besked,1,120);
        end
      else
        begin
          ShowMessage(copy(besked, 1, length(besked)));
          Delete(besked, 1, Length(besked));
      end;
    end
    until Length(besked) = 0;
end;


/ZIRON

procedure TForm1.SplitAndSendText(Inputmsg: Ansistring);
var
  Textleft: Ansistring;
  i: integer;
  procedure SendSMS(SMSMessage: string);
  begin
//Inset dit code til at sende text med her....
//Du skal sende teksten i: SMSMessage

  end;
begin
  Textleft := \'\';

  if length(Inputmsg) <= 120 then
  begin
    SendSMS(Inputmsg);
    Exit;
  end else
  begin
    for I := 1 to Length(Inputmsg) do
    begin
      Textleft := Textleft + Inputmsg[I];
      if length(Textleft) = 120 then
      begin
        SendSMS(Textleft);
        Textleft := \'\';
      end;
      if I = Length(Inputmsg) then
      begin
        SendSMS(Textleft);
        exit;
      end;
    end;
  end;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
  SplitAndSendText(\'Hmm håber du kan bruge dette. Det er nemt at lave om, jeg mener nemlig at en sms er på 120 bogstaver inkl Telefof nummer og Sender Navn, så det må du jo tage med i dine beregninger. Den her deler den nemlig op i text stumper a 120 bogstaver\');
end;

dkn

hm dkn den giver fejl i linjen procedure TForm1.SplitAndSendText(Inputmsg: Ansistring);

ok tjek:

1. Hedder din form: Form1 ?

2. Har du skrevet:
  procedure SplitAndSendText(Inputmsg: Ansistring);
  Under private sectionen i toppen af dit delphi dokument ?

dkn

darkside hvor meget vil du have smidt i hånden???

/ZIRON

Nok til at han forstår det... vel...