unihtmlmemo使用

unihtmlmemo使用

?

1 2 3 4 5 6 7 8 9 10 11 12

procedure TMainForm.UniButton1Click(Sender: TObject); begin   UniMemo1.Text := UniHTMLMemo1.Text; end;   procedure TMainForm.UniFileUploadButton1Completed(Sender: TObject;   AStream: TFileStream); begin   var filename: string:='files/yn'+ formatdatetime('yyyymmddhhnnsszzz', Now) + ExtractFileExt(UniFileUploadButton1.FileName);   CopyFile(PChar(AStream.FileName), PChar(filename), False);   UniHTMLMemo1.Lines.Add('<img src="'+ filename +'" alt="' + ExtractFileName(UniFileUploadButton1.FileName) + '" />'); end;