[Laz4Android] OnFileSelected(const FileName: string)
Bonjour à tous
Laz4Andoid
Normalement la 'procedure TAndroidModule1.OnFileSelected(const FileName: string);'
devrait être lancé automatiquement après
'Self.RequestOpenFile(Self.GetEnvironmentDirectoryPath(dirDownloads), 'text/plain', 111);'
mais la procédure OnFileSelected n'est pas lancée.
Mon code:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
procedure TAndroidModule1.Button1Click(Sender: TObject);
begin
Self.RequestOpenFile(Self.GetEnvironmentDirectoryPath(dirDownloads), 'text/plain', 111);
end;
procedure TAndroidModule1.OnFileSelected(const FileName: string);
var
FileStream: TFileStream;
FileContent: TStringStream;
begin
showmessage('filename');
FileStream := TFileStream.Create(FileName, fmOpenRead);
try
FileContent := TStringStream.Create('');
FileContent.LoadFromStream(FileStream);
showmessage(inttostr(filecontent.Size));
jEditText1.Text:= FileContent.DataString;
finally
FileStream.Free;
end;
end; |
