Het bellen heb ik werkend !
Ook het openen van de site met de al aanwezige browser werkt nu ook.
Maar nu het e-mailen nog.
Ik ben nu bezig met:
http://stackoverflow.com/questions/2...app-delphi-xe7
Code:
procedure TForm1.ZendEmail(const Recipient, Subject, Content,
Attachment: string);
var
Intent: JIntent;
Uri: Jnet_Uri;
AttachmentFile: JFile;
begin
Intent := TJIntent.Create;
Intent.setAction(TJIntent.JavaClass.ACTION_SEND);
Intent.setFlags(TJIntent.JavaClass.FLAG_ACTIVITY_NEW_TASK);
Intent.putExtra(TJIntent.JavaClass.EXTRA_EMAIL, StringToJString(Recipient));
Intent.putExtra(TJIntent.JavaClass.EXTRA_SUBJECT, StringToJString(Subject));
Intent.putExtra(TJIntent.JavaClass.EXTRA_TEXT, StringToJString(Content));
AttachmentFile := SharedActivity.getExternalFilesDir
(StringToJString(Attachment));
Uri := TJnet_Uri.JavaClass.fromFile(AttachmentFile);
//Intent.putExtra(TJIntent.JavaClass.EXTRA_STREAM, TJParcelable.Wrap((Uri as ILocalObject).GetObjectID)); //Deze regel geeft de fout melding: Undeclared identifer: 'TJParcelable'
Intent.setType(StringToJString('vnd.android.cursor.dir/email'));
SharedActivity.startActivity(Intent);
end;
ZendEmail('xxx@shaw.ca', 'Test Results', Memo1.Lines.text,'/sdcard/Download/Demo.pdf');
De regel: Intent.putExtra(TJIntent.JavaClass.EXTRA_STREAM, TJParcelable.Wrap((Uri as ILocalObject).GetObjectID));
geeft de fout melding: Undeclared identifer: 'TJParcelable'
Deze regel is nu uitgeschakeld !
Het al aanwezige e-mail programma wordt gestart, en bij:
Onderwerp, staat 'Test Results'
De tekst uit Memo1 wordt in het tekst gedeelte geplaatst.
Het bestand Demo.pdf wordt niet mee gestuurd, dat is denk ik wel de bedoeling.
Bij Aan, staat helaas niets, en daar ging het juist om .
Wie kan hier iets over vertellen ?
Bookmarks