Import .xls u Delphi?

Pozdrav,

zanima me da li nekome izgleda poznat ovaj kod:

[XLS.Options]
SkipRows = 2
DateFormat = yyyymmdd
TABLENAME=1

[XLS.FieldMap]
POSPZ = $ROW
ID_UM = $UMDEF
QTAPZ = 2
DIMXPZ = @10
DIMYPZ = @11
gt = 28
MOLA = @12
SHRIFy2 = $-1
PARAM1 = &29
ORIGSHAPE = 27
ELAB = 43
.
.
.
.

[XLS.FieldType]
POSPZ = i
ID_UM = i
CODMAT = s_16
QTAPZ = i
DIMXPZ = f
TESTOFISSO = s_8
FORO = i
FORATURA = s_1
DISTLISTELLO = f
ID_PZ = s_16
.
.
.
.
ovo je samo dio koda... u text fajlu tj. postavke za import

Radi se o aplikaciji radjenoj u delphiju koja pokusava da importuje excelov fajl sa ovakvim postavkama.
Moze li mi neko pomoci da kreiram ovaj excelov fajl?
Kako god sam pokusavao do sada aplikacija mi je izbacivala grešku...

Skontao sam da SKIPROW znaci preskoci redove, TABLENAME znaci naziv sheeta u excelu... Ostalo su vjerovatno postavke polja ali ne znam kako da ih postavim...
Svaka pomoc bi mi dobro dosla...
Hvala

> Radi se o aplikaciji radjenoj u delphiju koja pokusava da importuje excelov fajl sa ovakvim postavkama.
> Moze li mi neko pomoci da kreiram ovaj excelov fajl?
> Kako god sam pokusavao do sada aplikacija mi je izbacivala grešku...

Ne prepoznajem o čemu se tu radi, moj ti je savet da pokušaš sa nekim od proverenih rešenja, excel komponenti, OLE ili ADO pristupa.

Pogledaj npr:

http://delphi.about.com/od/database/l/aa090903b.htm
http://www.elitesecurity.org/t233705-0
http://www.elitesecurity.org/t184008-0
http://www.elitesecurity.org/t217226-0

Potpis

Do not be a help vampire (http://slash7.com/pages/vampires), use the google.

How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html

Mozda nisam bio najjasniji u objašnjenju pa ću pokušati ponovo.
Naime, radi se o gotovoj (kompajliranoj) aplikaciji radjenoj u delphiju koja ima mogućnost importa podataka iz excelovog fajla, međutim uopšte nemam niti jednog primjera u excelu iz kojeg bih mogao vidjeti kako da pripremim rucno taj excelov fajl za importovanje. Dakle, ono što ja imam jeste ovaj tekstualni fajl u kojem su sadrzane neke postavke za importovanje.
Jedino na osnovu ovog fajla bih mogao nekako skontati strukturu tog excelovoj fajla? Ili ima neki drugi način?
Pokušavam da nadjem na internetu komponentu koja za delphi koja bi mozda mogla koristiti ovakav način pa da iz nje pokusam shvatiti kako to funkcionise. Do sada sam bez uspjeha.

Naglasavam da mi je ovo jaaako bitno i da moram to nekako riješiti..

Hvala

> Naime, radi se o gotovoj (kompajliranoj) aplikaciji radjenoj u delphiju koja ima mogućnost importa podataka iz excelovog fajla, međutim uopšte nemam niti jednog primjera u excelu
> iz kojeg bih mogao vidjeti kako da pripremim rucno taj excelov fajl za importovanje. Dakle, ono što ja imam jeste ovaj tekstualni fajl u kojem su sadrzane neke postavke za importovanje.
> Jedino na osnovu ovog fajla bih mogao nekako skontati strukturu tog excelovoj fajla? Ili ima neki drugi način?

Ti trebaš rekonstruisati kako izgleda Excel fajl na osnovu programa koji taj fajl učitava? Težak zadatak, ako ne možeš nikako doći do fajla, jedino da ideš kroz debugger korak po korak dok ne vidiš šta je šta.

Potpis

Do not be a help vampire (http://slash7.com/pages/vampires), use the google.

How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html

Upravo to sada i pokusavam..
Idem preko Ollyja pa da vidim sta ce biti....
Ovo je put preko trnja

a pokusat cu kreirati i polja u excelu prema onim postavkama iz tekstualnog fajla...
Najgore je sto program padne ako se pojavi greska, nema nikakve naznake u cemu je greska, sve mora biti tacno

Ne znam da li postoji način da saznam koje komponente delphi koristi za importovanje... Mora da je neka activex kontrola, mozda bi se na osnovu toga moglo skontati kako to funkcionise

Ja sam jedino nasao 100Mb pdf fajlova o Office formatima na ovom linku, ali izgleda to nije to..
http://download.microsoft.com/...OfficeFileFormatsProtocols.zip

Potpis

Arduino Control Center

DeDe ce ti tu mnogo pomoci, delphi dekompajler i disasembler, ajde uploadovacu ti ga negde...

evo ti, kad ti se pojavi licence agreement sacekas jedno 20-tak sekunde i i agree ce se enablovati,

http://www.megaupload.com/?d=3NDJPYYX

DeDe mi predugo dekompajlira i nije mi nesto posebno pomogao.

Olly mi je pomogao da pronadjem neke stvari. Pronasao sam kako se konektuje na fajl:

Address Hex dump Command Comments
00C0954C |. /75 35 JNE SHORT 00C09583
00C0954E |. |68 3896C000 PUSH 00C09638 ; ASCII "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
00C09553 |. |8B45 FC MOV EAX,DWORD PTR SS:[LOCAL.1]
00C09556 |. |FF70 28 PUSH DWORD PTR DS:[EAX+28]
00C09559 |. |68 7096C000 PUSH 00C09670 ; ASCII ";Extended Properties="Excel 8.0;HDR=No;IMEX=1""
00C0955E |. |8D45 F0 LEA EAX,[LOCAL.4]
00C09561 |. |BA 03000000 MOV EDX,3
00C09566 |. |E8 31C87FFF CALL 00405D9C
00C0956B |. |8B55 F0 MOV EDX,DWORD PTR SS:[LOCAL.4]
00C0956E |. |8D45 F4 LEA EAX,[LOCAL.3]
00C09571 |. |E8 BECE7FFF CALL 00406434
00C09576 |. |8B55 F4 MOV EDX,DWORD PTR SS:[LOCAL.3]
00C09579 |. |8B45 F8 MOV EAX,DWORD PTR SS:[LOCAL.2]
00C0957C |. |E8 FF85FFFF CALL 00C01B80
00C09581 |. |EB 19 JMP SHORT 00C0959C
00C09583 |> \8D45 EC LEA EAX,[LOCAL.5]
00C09586 |. 8B55 FC MOV EDX,DWORD PTR SS:[LOCAL.1]
00C09589 |. 8B52 1C MOV EDX,DWORD PTR DS:[EDX+1C]
00C0958C |. E8 A3CE7FFF CALL 00406434
00C09591 |. 8B55 EC MOV EDX,DWORD PTR SS:[LOCAL.5]
00C09594 |. 8B45 F8 MOV EAX,DWORD PTR SS:[LOCAL.2]
00C09597 |. E8 E485FFFF CALL 00C01B80
00C0959C |> 8B45 FC MOV EAX,DWORD PTR SS:[LOCAL.1]
00C0959F |. 8378 10 00 CMP DWORD PTR DS:[EAX+10],0
00C095A3 |. 75 10 JNE SHORT 00C095B5
00C095A5 |. 8B45 FC MOV EAX,DWORD PTR SS:[LOCAL.1]
00C095A8 |. 83C0 10 ADD EAX,10
00C095AB |. BA A896C000 MOV EDX,00C096A8 ; ASCII "Sheet1"
00C095B0 |. E8 8BC47FFF CALL 00405A40
00C095B5 |> 68 B896C000 PUSH 00C096B8
00C095BA |. 8B45 FC MOV EAX,DWORD PTR SS:[LOCAL.1]
00C095BD |. FF70 10 PUSH DWORD PTR DS:[EAX+10]
00C095C0 |. 68 C496C000 PUSH 00C096C4 ; ASCII "$]"
00C095C5 |. 8D45 E4 LEA EAX,[LOCAL.7]


Pretpostavljam da ovaj naziv Sheet1 oznacava sheetname u excelu, a nisam siguran sta predstavlja ovaj znak $
Ima li neko iskustva sa OLEDB i excelom? Ja to moram sve ispocetka uciti!

Upit za otvaranje tabele bi bio SELECT * FROM [Sheet1$].

Potpis

Arduino Control Center

A šta znači ovaj dolar u definisanju kolona:
POSPZ = $ROW
ID_UM = $UMDEF

i koliko je bitno u excelu unaprijed definisati vrstu podataka u pojedinoj koloni (string, integer... ) i format datuma.

I sta ovo preskakanje redova (skiprow) zaista znači?
Da li je u broj redova koji se preskače uračunat i naziv kolone?

Konacno, nakon nekoliko dana nerviranja i korištenja metode "Pokušaj-pogreška" sam dobio poruku:

Error
Cannot import this file.
File: C:\test.xls
Line: 1
Field: 2 (QTAPZ)
Value: WET


Vrijednost WET sam unio u prvom redu excelove druge kolone sa postavkama:


[XLS.Options]
SKIPROW=0

[XLS.FieldMap]
QTAPZ = 2

[XLS.FieldType]
QTAPZ = i

Pretpostavljam da ovo "i" znaci integer posto sam kasnije probao sa varijantom da unesem broj i nije mi javljao ovakvu gresku, greska je bila na nekoj drugoj koloni... Moram sve kolone rucne prijeći, a vjerujte mi da ih ima jako mnogo..
Samo kada bih znao jesam li na pravom putu, da nije sve uzalud?

Ovaj .ini fajl mi liči na microsoftov shema.ini fajl koji se koristi prilikom ADO konekcije, ali mi nije jasno kako se koristi
prilikom importa excelovog fajla? Piše da samo služi za tekstualne fajlove??? A i nemam nigdje stavke TABLENAME i sl.

Ukoliko nekoga zanima riješio sam problem, uz puno znoja i truda..