[ nnn @ 16.12.2005. 20:11 ] @
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:)

[ Srki_82 @ 16.12.2005. 22:55 ] @
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
[ nnn @ 17.12.2005. 09:06 ] @
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.
[ Srki_82 @ 17.12.2005. 09:36 ] @
Cudno... koji kompajler koristis?

Mozda ti TFileStream.Create promeni trenutni folder?
[ nnn @ 17.12.2005. 13:03 ] @
Borland Delphi 6 enterprize
[ obucina @ 17.12.2005. 16:40 ] @
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
[ nnn @ 19.12.2005. 10:17 ] @
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 :)
[ Rapaic Rajko @ 19.12.2005. 13:30 ] @
Pogledaj funkcije SetCurrentDir i GetCurrentDir, i shvatices zasto se desavalo to sto si imao.

Rajko