Login ProductsSalesSupportDownloadsAbout |
Home » Technical Support » DBISAM Technical Support » Incident Reports » Incident Reports Reported for Version 4.24 » View Incident Report |
Serious |
Reported By: Carlos Guerra Reported On: 5/7/2006 For: Version 4.24 Build 1 |
procedure TMainDataModule.NXDBSession1RemoteSendProgress(Sender: TObject; NumBytes: Integer; PercentDone: Word); begin if MvSendingFile then begin // MLProgress1.Position1 := PercentDone; << This eventually fails after some uploads MLProgress1.Caption1 := IntToStr(NumBytes)+'kb'; << this will work OK end; end; ********************* And this is the example code I use to upload the file to the Blob: ********************* procedure TEmbarquesForm.Insert2Click(Sender: TObject); begin if OpenDialog1.Execute then begin MainDataModule.MvSendingFile := True; MainDataModule.MLProgress1.Show; MainDataModule.MLProgress1.Title := 'Archivando Documento'; DBTableEmbarquesDocumentos.Append; DBTableEmbarquesDocumentosArchivo.LoadFromFile(OpenDialog1.FileName); DBTableEmbarquesDocumentos.FieldByName('TipoDocumento').AsString := ExtractFileName(OpenDialog1.FileName); DBTableEmbarquesDocumentos.FieldByName('ArchivoOriginal').AsString := ExtractFileName(OpenDialog1.FileName); try DBTableEmbarquesDocumentos.Post; finally MainDataModule.MvSendingFile := False; MainDataModule.MLProgress1.Hide; end; end; end;
This web page was last updated on Wednesday, March 20, 2024 at 07:22 AM | Privacy PolicySite Map © 2024 Elevate Software, Inc. All Rights Reserved Questions or comments ? E-mail us at info@elevatesoft.com |