MyCity » Pascal -> Delphi » Zauzimanje resursa !!!

Zauzimanje resursa !!!

Napisano na dan: 20.3.2007

Zauzimanje resursa !!!
Sledeća strana Pagination

Idi na vrh

Poslao: 20 Mar 2007 15:09
Idi na vrh
offline
  • Pridružio: 03 Nov 2006
  • Poruke: 59

  1. procedure Tdownload.IWButton1Click(Sender: TObject);
  2. var  fn:TFileName;
  3.      id:integer;
  4.      nz:string;
  5.      ime:string;
  6.      a:boolean;
  7. var stream:TStream;
  8.     fstream:TfileStream;
  9. var pth:string;
  10. begin
  11. // odredi download path
  12.  With TIWuserSession(webapplication.data) do begin
  13.          pth:=downloadpath;
  14.         end;
  15.  
  16.  if not(p.blobs.Active) then p.blobs.Active:=true;
  17.   id:=DataSource2.DataSet.fieldbyname('id').AsInteger;
  18.   try
  19.     p.blobs.FindKey([id]);
  20.        if p.blobs.IsEmpty then begin
  21.           WebApplication.ShowMessage('Ne mogu pronaci dokument u bazi');
  22.           exit;
  23.        end else begin
  24.          stream := p.blobs.CreateBlobStream(p.blobs.FieldByName('DMSCONTENT'),bmRead);
  25.          stream.Position := 0;
  26.  //
  27.          ime:= 'DOWNLOAD_'+floattostr(now)+p.IdentFILEEXT.asstring;
  28. //
  29.          fstream:=TfileStream.Create(pth+ime,fmcreate   );
  30.          fstream.CopyFrom(stream,stream.Size);
  31.          fstream.Free;
  32.  
  33.       //   Webapplication.SendFile(pth+ime,'',ime,true);
  34.          Webapplication.SendFile(pth+ime,true,'',ime);
  35.      END
  36.     except
  37.                  on E:Exception do begin
  38.                   p.PorukaKorisniku :='Weblink Greska 00026 -'+'Error in create download stream ';
  39.                   p.OpisGreske :=e.Message;
  40.                   p.neuspjelakomanda :='';
  41.                   p.SnimiGreskuUAlert(p.username,p.neuspjelakomanda,p.PorukaKorisniku,p.OpisGreske);
  42.                   WebApplication.ShowMessage(p.PorukaKorisniku);
  43.                   end;
  44.     end;
  45.  // WebApplication.RunParams.Clear;
  46. end;



Ljudi, ovo je kod koji imam ne nekom Button-u, rdai se o Web aplikaciji radjenoj u Intraweb tehnologiji i sada sta je problem?
Pa ovako, ovo dugme sluzi za skidanje nekog dokumenta i kada zavrsim sa skidanjem tog dokumenta nesto mi drzi resurse, tako da ne mogu pristupiti nicemu sto se nalazi na formi (stranici) sve dok ne kliknem BACK na html stranici.
Kako ovo mogu da rijesim?

Meni se cini da me ovo zeza.

  1. fstream:=TfileStream.Create(pth+ime,fmcreate   );
  2.  fstream.CopyFrom(stream,stream.Size);
  3.  fstream.Free;



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
Poslao: 20 Mar 2007 18:11
Idi na vrh
offline
  • Emil Beli
  • Pridružio: 03 Jan 2005
  • Poruke: 2990
  • Gde živiš: Beograd

jassta da te to zeza..
Prvo, TStream nije klasa koju bi trebalo koristiti, ali ajde, moze.

Medjutim, nije samo tu problem
ovako se ne radi
stream := p.blobs.CreateBlobStream(p.blobs.FieldByName('DMSCONTENT'),bmRead);


radi se ovako

  1. ms:=TMemoryStream.Create;
  2. try
  3.   TBlobField(blobs.FieldByName('DMSCONTENT')).SaveToStream(ms);
  4.   ms.position:=0;
  5.   ms.SaveToFile('ime fajla');
  6. finally
  7.   ms.free;
  8. end;
Poslao: 21 Mar 2007 09:07
Idi na vrh
offline
  • Pridružio: 03 Nov 2006
  • Poruke: 59

Beli, hvala na pokusaju, ali nije uspjelo.
Ipak nije do TStream klase, jer sam kasnije pokusao ovako :

bloblibrary.save_blob_to_file(p.blobs.FieldByName('DMSCONTENT'),pth+ime,p.blobs);

Naravno probao sam i tvoju metodu, ali uvjek isto.

Znaci svaki od ovih nacina odradi posao, ali kasnije ne mogu kliknuti niti jedan link ili neku drugu stvar na otvorenoj stranici, sve dok u Internet Exploreru ne kliknem 'Back'. Tada se sve odblokira i mogu normalno da radim.

Dopuna: 21 Mar 2007 9:07

Jos nesto, ovo na DELPHI7 radi nesto drugacije, tamo se sve otvara u Internet Exploreru, pa svakako moram kliknuti na 'Back', da bi se vratio na stranicu odakle mogu da skidam stranice. Dok Borland2006, datoteku otvara, recimo .doc - otvara Word, skenirani dokument - Imaging i tako redom, a stranica u Internet Exploreru ostaje ona sa koje se skidaju te datoteke ili slike...

Poslao: 21 Mar 2007 12:04
Idi na vrh
offline
  • Emil Beli
  • Pridružio: 03 Jan 2005
  • Poruke: 2990
  • Gde živiš: Beograd

Pazi, ja ne znam sta ti oduzima resurse, ali si definitivno pogresio kod preuzimanja BLOBa, radi se kako sam ti napisao.
Sto se ostalog tice, proveri code.

Delphi ima lepe stvarchice kao F5, F7, F8, Ctrl+F7, Ctrl + Alt + S

Poslao: 22 Mar 2007 15:45
Idi na vrh
offline
  • Pridružio: 03 Nov 2006
  • Poruke: 59

Webapplication.SendFile(pth+ime,true,'',ime);

Ovo je uzrok mojih problema, ali bez toga ne mogu.
Ma znam za te lijepe stvarcice, ali nema pomoci od njih, probavao sam 1000 puta.

Ako stavim,

Webapplication.SendFile(pth+ime,false,'',ime);

onda se ponasa kao u delphi7, znaci otvara mi datoteku u Internet Exploreru, ali tada je problem sto pola stvari ne moze da otvori, ne konta ih.

Da li postoji neka slicna funkcija, gore navedenoj da probam sa njom nesto da uradim, ali da nije

WebApplication.SendStream(fstream,true,'',ime);

posto od ove vajde nema.

Dopuna: 22 Mar 2007 15:45

Ljudi, rjesio sam problem.
Naime na formi -> properties -> locksubmit treba staviti False i radi kao zmaj !!!

MyCity » Pascal -> Delphi » Zauzimanje resursa !!!

Ko je trenutno na forumu
 

Ukupno su 887 korisnika na forumu :: 12 registrovanih, 0 sakrivenih i 875 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 3466 - dana 01 Jun 2021 17:07

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: deLacy, kaskadija, Mrav Obrad, Otto Grunf, PrincipL, RED4G-304, rikirubio, sap, sekretar, vladetije, zlaya011, Đole64