-
Forum: Object-Pascal / Delphi-Language
Delphi
by nimmersattXD,
16. Jun 2009
ah ok jetzt hab ichs verstanden, jetzt hat mein programm nur noch ein problem mit dem P:=StrNew(key); weil key ein string is und p ein pansichar, gibt es moeglichkeiten konvertierung wie bei strtofloat oder sowas?
hat sich erhledigt :) habn bissel rumgegoogelt und problem loesst sich wenn ich PAnsiChar(key) schreibe :D ich glaub jetzt bin ich mit meinem programm fertig, waere zumindest...
-
Forum: Object-Pascal / Delphi-Language
Delphi
by nimmersattXD,
16. Jun 2009
aehm eigentlich will ich ja zusaetzlich zu dem key noch einen string speichern, das beides gehoert zusammen, und wenn ich den key suche dann moechte ich gern die data dazu auch haben, ich mein wozu is dieses data sonst da? oder is das von anfang an nur so gedacht worden, dass da ein dummy genutzt wird ... wenn das so ist brauch ich eine neue hashtable-unit, weil ich gern noch zusaetzlich was...
-
Forum: Object-Pascal / Delphi-Language
Delphi
by nimmersattXD,
16. Jun 2009
ok jetzt startet das pogramm schonmal!
diese zeile macht er auch:
LiBoUsed.ItemIndex:=LiBoUsed.Items.Add(key);
nur bei der hier bekomm ich eine access violation fehlermeldung:
LiBoUnused.ItemIndex:=LiBoUnused.Items.Add(dummy2^);
-
Forum: Object-Pascal / Delphi-Language
Delphi
by nimmersattXD,
15. Jun 2009
so jetzt hab ich mich noch ein bisschen ueber pointer informiert und mein programm geaendert, anscheinend speichert es auch schon meinen string im data der hashtabelle(hashpicofsit), aber bei der ausgabe will es einfach nicht funktionieren :(
hier mein quelltext dazu:
procedure TForm1.BtnSearchSitClick(Sender: TObject); //zum finden der Seiten in den ordnern und der urls der bilder
var...
-
Forum: Object-Pascal / Delphi-Language
Delphi
by nimmersattXD,
15. Jun 2009
hallo nochmal,
mein prog ist fast fertig, in excel speichern kann ich jetzt auch
nun wollte ich gern noch etwas bezueglich der hashtables wissen:
wie kann man denn data(bzw.: nil) benutzten, also in meinem fall noch einen string speichern?
-
Forum: Object-Pascal / Delphi-Language
Delphi
by nimmersattXD,
12. Jun 2009
ach design is nich wichtig, is nur dazu da das ein bissel abzugleichen, ob mein prog auch alles bekommt un so!
aber was genau meinst du mit csv-dateien?
gibts da ne funktion aehnlich wie savetofile??
oder muss ich da was anderes schreiben?
-
Forum: Object-Pascal / Delphi-Language
Delphi
by nimmersattXD,
12. Jun 2009
naja im grunde genommen hab ich das ja mit savetofile schon ganz gut drin, nur erstens sollen beide listboxes drin gespeichtert werden und zweitens sollen die in einer tabelle mit zwei spalten gegenueberstehen, ungefaehr so:
unused pictures ________ used pictures
___bild345.jpg __________ bild898.jpg
__........ __________________ ........
(unterstriche nicht beachten ...
-
Forum: Object-Pascal / Delphi-Language
Delphi
by nimmersattXD,
12. Jun 2009
hey jetzt wirds langsam, echt cool was ihr alles wisst :) machst du das beruflich nat oder studierst du das?? muss ja irgendwo herkommen :) man sieht ja bei mir das normales schuldelphi nicht unbedingt tiefgreifend ist :tongue:
das mit dem threading hab ich schon irgendwo gelesen, aber ich glaub das programm is im mom schon so schnell, das es nicht stoert dass es einfriert ... mein chef war...
-
Forum: Object-Pascal / Delphi-Language
Delphi
by nimmersattXD,
12. Jun 2009
ok mit den btn123.click gehts aber ich moechte ja dass sich die panels nacheinander gruen faerben, aehnlich wie bei einer ampel :)
aber hier mal mein prog!
ps: ich arbeite grad an dem save-button, also nich beachten ;) ausser du kannst mir dabei auch noch helfen :stupid:
-
Forum: Object-Pascal / Delphi-Language
Delphi
by nimmersattXD,
12. Jun 2009
ich hab ja auch bei der ontimer routine die btnsearch routinen eingefuegt, also im oi bei events. und das mit dem debuggen hab ich grad ausprobiert, aber egal wo ich den roten punkt hinmache, die fehlermeldung kommt gleich wenn ich auf den btnsearchfin klicke. ich finds halt nur komisch, dass wenn ich auf die button so einzeln klicke, alles einwandfrei funktioniert, aber wenn ich das den timern...
-
Forum: Object-Pascal / Delphi-Language
Delphi
by nimmersattXD,
12. Jun 2009
jo das waer ne gute idee, nur was ist mit meinem problem mit den timern un der fehleremeldung ??
-
Forum: Object-Pascal / Delphi-Language
Delphi
by nimmersattXD,
12. Jun 2009
so habs geschafft :) un es richtig richtig schnell, hab bestimmt einige minuten eingspart!
das einzige was mich jetzt noch stoert is, dass ich am anfang 3 buttons hatte: einen zum suchen der bilder in den ordern, einer szum suchen der seiten und der darin befindlichen urls und dann noch einen um die beiden sachen zu vergleichen, um das alles zusammenzufuegen hab ich timer benitzt, ABER leider...
-
Forum: Object-Pascal / Delphi-Language
Delphi
by nimmersattXD,
12. Jun 2009
naja ich meinte den ganzen pfad mit dateinamen, un es funst auch soweit un is schneller als mit den listboxes!! un die html werden waehrend der suche nach den url doch in eine strinlist geladen ...
naja un das mit den bildern: ich weiss ehrlich gesagt nicht was du jetzt nich verstehst :) das programm nimmt sich ein bild, geht durch alle htmls und guckt ob es da auch drin steht, wenn nich kann...
-
Forum: Object-Pascal / Delphi-Language
Delphi
by nimmersattXD,
11. Jun 2009
in dem key is ja nich der text der html dateien, sondern nur der pfad von ihnen gespeichert! :wink:
-
Forum: Object-Pascal / Delphi-Language
Delphi
by nimmersattXD,
11. Jun 2009
also hier erstmal mein quelltext, bei dem ich hilfe brauche:
procedure TForm1.BtnSearchSitClick(Sender: TObject);
var direct,filename:string;
page:TStringList;
i,idx:integer;
re:TRegExpr;
-
Forum: Object-Pascal / Delphi-Language
Delphi
by nimmersattXD,
11. Jun 2009
hat denn keiner eine idee?
-
Forum: Object-Pascal / Delphi-Language
Delphi
by nimmersattXD,
11. Jun 2009
mmh vllt habt ihr mein programm nicht verstanden, selbst wenn das bild mehrmals als datei vorkommt, kann es trotzdem sein das es nicht in den htmls is, also dann auch nich in der andern tabelle, wenn das der fall kann es ja geloescht werden, und dann ist es ja nich mehr so schwer nochmal GetFilesInDirectory aufzurufen und damit dann alle zu loeschen!
was passiert eigentlich in der hashtabelle...
-
Forum: Object-Pascal / Delphi-Language
Delphi
by nimmersattXD,
10. Jun 2009
mmh also is hashtables doch nicht sone gute idee oder wie? oder ich lass die pfade einfach weg, ich denk mal wenn das programm fertig ist, will mein chef eh noch eine routine, die die bilder löscht, die nicht gebraucht werden, dann ich die ja nochmal fix suchen ...
-
Forum: Object-Pascal / Delphi-Language
Delphi
by nimmersattXD,
10. Jun 2009
ah ok, das wars :oops:
kann ich bei den hashtables eigentlich auch zwei spalten machen? also eigentlich drei :) mit key, path und dem namen der datei ?? und wenn ja wieder mach ich das ?
-
Forum: Object-Pascal / Delphi-Language
Delphi
by nimmersattXD,
10. Jun 2009
mmh war ja ganz leicht :)
leider bekomm ich jetzt ne fehlermeldung wenn ich auf den button klicke:
Access violation at address ... in module '... .exe'. write to address .... .
-
Forum: Object-Pascal / Delphi-Language
Delphi
by nimmersattXD,
10. Jun 2009
also es handelt sich um etwa 7600 bilder, aber da kommen viele doppelt vor ... noch ein grund warum ich hashlists benutzten wollte, um bevor ich ein bild hinzufuege erstmal suche ob es das nich schon in der liste gibt.
und die suchroutine mit hashlists umzubauen war ja genau meine idee, leider weiss ich nicht genau wie ich das anstellen soll ... deswegen das thema!
-
Forum: Object-Pascal / Delphi-Language
Delphi
by nimmersattXD,
10. Jun 2009
um das mal zu erklaeren: ich soll ein programm machen, das zum einen die bilder in einem ordner sucht und dann die urls von allen bildern die in htmls, htmlms und jsps auftreten. beides wird dann von dem programm verglichen, um so rauszufinden welche bilder noch benutzt werden und welche nicht.
ich hab das alles mit listboxes realisiert, also mit den namen der bilder die in den ordnern...
-
Forum: Object-Pascal / Delphi-Language
Delphi
by nimmersattXD,
10. Jun 2009
mmh ich wollte eigentlich das ganze ohne listboxes machen und mit der GetFilesInDirectory() routine gleich in einer hashtabelle speichern! Da die routine aber mit TStrings arbeitet und das woerterbuch mit strings oder integers, muss ich sie aendern, oder?
-
Forum: Object-Pascal / Delphi-Language
Delphi
by nimmersattXD,
10. Jun 2009
Hallo zusammen!
ich habe mal wieder ein problem ;)
ich habe im EasyDelphiHelper eine schoene routine gefunden, die rekursiv nach dateien in ordnern sucht:
procedure GetFilesInDirectory(Directory: String; const Mask: String;
List: TStrings;