[es] - Neobican bug. Bacio me totalno u rebus

nnn
Tech Lead
Haxr.io
Beograd

Član broj: 16743
Poruke: 679
*.yubc.net.

+87 Profil

Neobican bug. Bacio me totalno u rebus

^{16.12.2005. u 20:11 - pre 223 meseci}

Imam jedan program i jedanu veoma nejasnu gresku. U jednoj od formi imam stringgrid i imam funkciju koja ga exportuje u excel file:

Code:

function SaveAsExcelFile(AGrid: TStringGrid; AFileName: string): Boolean;
const
  {$J+} CXlsBof: array[0..5] of Word = ($809, 8, 00, $10, 0, 0); {$J-}
  CXlsEof: array[0..1] of Word = ($0A, 00);
var
  FStream: TFileStream;
  I, J: Integer;
begin
  Result := False;
  FStream := TFileStream.Create(PChar(AFileName), fmCreate or fmOpenWrite);
  try
    CXlsBof[4] := 0;
    FStream.WriteBuffer(CXlsBof, SizeOf(CXlsBof));
    for i := 0 to AGrid.ColCount - 1 do
      for j := 0 to AGrid.RowCount - 1 do
        XlsWriteCellLabel(FStream, I, J, AGrid.cells[i, j]);
    FStream.WriteBuffer(CXlsEof, SizeOf(CXlsEof));
    Result := True;
  finally
    FStream.Free;
  end;
end;

pozivam je sa ovim:

Code:

procedure TForm4.exportexel1Click(Sender: TObject);
begin
SaveDialog1.Execute;
if SaveDialog1.FileName='' then
else
if SaveAsExcelFile(Grid,SaveDialog1.FileName) then
    begin
    ShowMessage('Dokument je uspesno sacuvan');
    SaveDialog1.FileName :='';
    end;
    end;

I to sve lepo radi. Ali kad ocu posle izvrsenja te funkcije da uradim u nekoj drugoj funkciji ovo:

Code:

ASSIGNFILE(unosi[br],('data\firm'+pored[i].sifra)); //pored[i].sifra je string
                        {$I-}
                Reset(unosi[br]);
                        {$I+}
                IF IORESULT <> 0 THEN REWRITE(unosi[br]);  //OVDE JAVI GRESKU

Greska je "Invalid FileName"

Samo da napomenem da ovo radi sve dok ne exportujem u excel.
Pomagajte vec sam izludeo:)

Odgovor na temu

Srki_82
Srdjan Tot
Me @ My Home
Ljubljana

Član broj: 28226
Poruke: 1403
82.208.201.*

ICQ: 246436949

+10 Profil

Re: Neobican bug. Bacio me totalno u rebus

^{16.12.2005. u 22:55 - pre 223 meseci}

Ova greska je sasvim na mestu... vidi se iz aviona

Code:
FStream := TFileStream.Create(PChar(AFileName), fmCreate or fmOpenWrite);

Ovaj red postavalja FileMode tako da svaki sledeci Reset otvara fajl samo za pisanje, a ti pokusavas da citas iz fajla

To je greska... ili izbaci ono fmOpenWrite ili pre pozivanja Reset funkcije napisi

Code:
FileMode := fmOpenReadWrite; // ili samo fmOpenRead

i to ce ti resiti problem

Play Store

Odgovor na temu

nnn
Tech Lead
Haxr.io
Beograd

Član broj: 16743
Poruke: 679
*.yubc.net.

+87 Profil

Re: Neobican bug. Bacio me totalno u rebus

^{17.12.2005. u 09:06 - pre 223 meseci}

Pokusao sam i opet prijavljuje istu gresku. Ali ja sam postigao napredak. Izvalio sam da kada exportujem u excel, a tu gde sam exporovao imam folder "data" on nece prijaviti gresku nego ce samo napraviti novi fajl u tom folderu.

ASSIGNFILE(unosi[br],('data\firm'+pored.sifra));

"data" je folder koji se nalazi u direktorijumu gde mi se nalazi program, a fajl mi je na primer "firm001" Ne kapiram, kada je njemu da da mi napravi novi fajl u folderu data on mi uradi sve lepo i napraviga tamo gde mi je program, li ako to uradim posle exportovanja u excel on mi napravi tamo gde sam sacuvao taj fajl.

Odgovor na temu

Srki_82
Srdjan Tot
Me @ My Home
Ljubljana

Član broj: 28226
Poruke: 1403
82.208.201.*

ICQ: 246436949

+10 Profil

Re: Neobican bug. Bacio me totalno u rebus

^{17.12.2005. u 09:36 - pre 223 meseci}

Cudno... koji kompajler koristis?

Mozda ti TFileStream.Create promeni trenutni folder?

Play Store

Odgovor na temu

nnn
Tech Lead
Haxr.io
Beograd

Član broj: 16743
Poruke: 679
*.yubc.net.

+87 Profil

Re: Neobican bug. Bacio me totalno u rebus

^{17.12.2005. u 13:03 - pre 223 meseci}

Borland Delphi 6 enterprize

Odgovor na temu

obucina

Član broj: 38191
Poruke: 723

Jabber: obucina

+7 Profil

Re: Neobican bug. Bacio me totalno u rebus

^{17.12.2005. u 16:40 - pre 223 meseci}

Greska je kao sto ti pise INVALID FILE NAME.
Proveri ime koje prosledjujes u AssignFile.
Dodaj

ExtractFilePath(Application.ExeName))

ispred 'data\firm'+pored.sifra

i proveri da li stvarno dobijas imeta oblika firmXXX

Odgovor na temu

nnn
Tech Lead
Haxr.io
Beograd

Član broj: 16743
Poruke: 679
*.yubc.net.

+87 Profil

Re: Neobican bug. Bacio me totalno u rebus

^{19.12.2005. u 10:17 - pre 223 meseci}

Citat:

obucina: Greska je kao sto ti pise INVALID FILE NAME.
Proveri ime koje prosledjujes u AssignFile.
Dodaj

ExtractFilePath(Application.ExeName))

ispred 'data\firm'+pored.sifra

i proveri da li stvarno dobijas imeta oblika firmXXX

Izgleda da ri ovo
ExtractFilePath(Application.ExeName)
Sad cu da ubacim svugde gde treba.
Zahvaljujem se svima na pomoci :)

Odgovor na temu