Witam,
Mam problem z wysłaniem wiadomości tekstowej w całości tzn.
kiedy wypełnie pole Memo i po wciśnięciu przycisku wyślij zostaje wysłana tylko ostatnia linia z pola memo.
procedure SendSMS (target,messagestr:string);
var
smsManager: JSmsManager;
smsTo: JString;
begin
smsManager:= TJSmsManager.JavaClass.getDefault;
smsTo:= StringToJString(target);
smsManager.sendTextMessage(smsTo, nil, StringToJString(messagestr), nil, nil);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
wiad : string;
begin
wiad := memo1.Text;
SendSMS('jakis_nr_telefonu', wiad);
end;
Co mam zrobić aby wysłał się cały tekst z pola Memo? Czy któryś z kolegów mógł by mi pomóc w rozwiazaniu tego problem?