Vorheriges Thema anzeigen :: Nächstes Thema anzeigen |
Autor |
Nachricht |
AndT
Anmeldungsdatum: 02.04.2007 Beiträge: 481
|
Verfasst am: 11.07.2007, 20:06 Titel: DateiConverter für Freebasic |
|
|
Endlich mal wieder was Sinnvolles von mir!
Dies ist ein Programm, welches belibige Dateien in FBC Convertiert.
So kann z.B die FreeImage.dll direckt mit Convertiert werden. (wenns gehen würde..) ...Fehlermeldung!
Das Programm erstellt den Sourcecode, welcher einfach nur noch in euer Programm eingefügt werden muss.
Das bisschen Code reicht dafür:
Code: | Neuer Code auf steht unten.. |
_________________ Bis irgendwann... 
Zuletzt bearbeitet von AndT am 12.07.2007, 00:57, insgesamt 3-mal bearbeitet |
|
Nach oben |
|
 |
csde_rats

Anmeldungsdatum: 07.01.2007 Beiträge: 2292 Wohnort: Zwischen Sessel und Tastatur
|
|
Nach oben |
|
 |
ytwinky

Anmeldungsdatum: 28.05.2005 Beiträge: 2624 Wohnort: Machteburch
|
Verfasst am: 11.07.2007, 20:55 Titel: |
|
|
Hi,
du kannst Code: | DateiCHR (1 to "+STR(LOF(1))+")" | durch Code: | DateiCHR (1 to " &LOF(1)) &")" | ersetzen..
(& rulez..)
Es ist auch eine gute Angewohnheit, Dateien, die von einem Programm geöffnet werden, auch von diesem wieder schließen zu lassen..
Das löst natürlich nicht das Stack-Problem, dazu müßtest du hier mal nachkucken..
Gruß
ytwinky _________________
v1ctor hat Folgendes geschrieben: | Yeah, i like INPUT$(n) as much as PRINT USING.. | ..also ungefähr so, wie ich GOTO.. |
|
Nach oben |
|
 |
csde_rats

Anmeldungsdatum: 07.01.2007 Beiträge: 2292 Wohnort: Zwischen Sessel und Tastatur
|
|
Nach oben |
|
 |
Mao
Anmeldungsdatum: 25.09.2005 Beiträge: 4409 Wohnort: /dev/hda1
|
Verfasst am: 11.07.2007, 21:27 Titel: |
|
|
Und dieser geile Satz am Anfang war natürlich auch nur rein zufällig, ne?  _________________ Eine handvoll Glück reicht nie für zwei.
--
 |
|
Nach oben |
|
 |
Lutz Ifer Grillmeister

Anmeldungsdatum: 23.09.2005 Beiträge: 555
|
Verfasst am: 11.07.2007, 21:35 Titel: Re: DateiConverter für Freebasic |
|
|
Öhm, nichts für ungut, aber was haltet ihr von einem Minimum an Rechtschreibung? "belibig", "direckt", "Convertiert", "Decompliren"...
AndT:
Ich habe stark den Verdacht, dass du das Toll "bin2bas" nicht kennst, dass die Aufgabe, die du (scheinbar?) bewältigen willst, erstens besser und zweitens sowieso schon erfüllt.
Lutz Ifer _________________ Wahnsinn ist nur die Antwort einer gesunden Psyche auf eine kranke Gesellschaft. |
|
Nach oben |
|
 |
AndT
Anmeldungsdatum: 02.04.2007 Beiträge: 481
|
Verfasst am: 11.07.2007, 21:38 Titel: |
|
|
Wenn dem so ist mach ich es etwas komforableler
Sprich WinApi  _________________ Bis irgendwann...  |
|
Nach oben |
|
 |
csde_rats

Anmeldungsdatum: 07.01.2007 Beiträge: 2292 Wohnort: Zwischen Sessel und Tastatur
|
Verfasst am: 11.07.2007, 21:45 Titel: |
|
|
... udn buttons und eingabe felder und....
..... viel spaß
Mao hat Folgendes geschrieben: | Und dieser geile Satz am Anfang war natürlich auch nur rein zufällig, ne?  |
Öhhhmmm
welcher Satz? _________________ If hilfreicher_Beitrag then klick(location.here)
Klick |
|
Nach oben |
|
 |
AndT
Anmeldungsdatum: 02.04.2007 Beiträge: 481
|
Verfasst am: 11.07.2007, 21:50 Titel: |
|
|
alt.. _________________ Bis irgendwann... 
Zuletzt bearbeitet von AndT am 12.07.2007, 00:53, insgesamt einmal bearbeitet |
|
Nach oben |
|
 |
csde_rats

Anmeldungsdatum: 07.01.2007 Beiträge: 2292 Wohnort: Zwischen Sessel und Tastatur
|
Verfasst am: 11.07.2007, 21:53 Titel: |
|
|
DAS schaff noch nicht einmal ich
|edit|
Zitat: |
Command executed:
"C:\Developing\FreeBasic\fbc.exe" "C:\Developing\FreeBasic\FBIDETEMP.bas" -i inc -l kernel32 -l user32 -l freeimage.dll -exx
Compiler output:
C:/Developing/FreeBasic/FBIDETEMP.bas(14) : error 26: Invalid data types, found: '!'
.lpstrFilter = strptr( !"Einfach alles anzeigen MUHAHAHAHAHA\0*.*\0JpgBilder\0*.jpg\0BmpBilder\0*.bmp" )
^
C:/Developing/FreeBasic/FBIDETEMP.bas(23) : warning level 0: Suspicious pointer assignment
Results:
Compilation failed
System:
FBIde: 0.4.6
fbc: FreeBASIC Compiler - Version 0.16 for win32 (target:win32)
OS: Windows XP (build 2600, Service Pack 2)
|
Soviel zu -lang fb  _________________ If hilfreicher_Beitrag then klick(location.here)
Klick |
|
Nach oben |
|
 |
AndT
Anmeldungsdatum: 02.04.2007 Beiträge: 481
|
Verfasst am: 11.07.2007, 22:00 Titel: |
|
|
Tja ich schreib gerade einen neuen Code... _________________ Bis irgendwann... 
Zuletzt bearbeitet von AndT am 12.07.2007, 00:56, insgesamt einmal bearbeitet |
|
Nach oben |
|
 |
AndT
Anmeldungsdatum: 02.04.2007 Beiträge: 481
|
Verfasst am: 12.07.2007, 00:52 Titel: Neue Version ;) |
|
|
Ihr habt es ja nicht anders gewollt..
Hier der Link zum verbesserten Code:
http://nopaste.freebasic.de/index.php?view=711
Jetzt sind auch die bekannten dingens von Windows mit drinne..
Also Dialog zum laden und speichern..
Die Dateien werden nicht mehr direckt in eine Bas geschrieben sondern in eine Headerdatei. Das hat den Vorteil, das die Daten in der Baiscdatei nicht ausversehen Zerstört werden
Das Dateisystem hab ich mir von Bin2Bas abgeguckt und so umgeschrieben, das es -lang FB Kompatibel ist.
Also schreibt das Programm genauso wie in Bin2Bas (Der Code ist nicht geklaut weil ich ihn selbst geschrieben habe )
Kritik? Nur zu! _________________ Bis irgendwann...  |
|
Nach oben |
|
 |
Mao
Anmeldungsdatum: 25.09.2005 Beiträge: 4409 Wohnort: /dev/hda1
|
Verfasst am: 12.07.2007, 12:36 Titel: |
|
|
csderats hat Folgendes geschrieben: |
Öhhhmmm
welcher Satz |
[quote="csderats]
suchen ihm erspart sein
[/quote]
csderats im OT-Forum hat Folgendes geschrieben: |
@Award:
*bescheurten-satz-austüftel*
|
_________________ Eine handvoll Glück reicht nie für zwei.
--
 |
|
Nach oben |
|
 |
csde_rats

Anmeldungsdatum: 07.01.2007 Beiträge: 2292 Wohnort: Zwischen Sessel und Tastatur
|
Verfasst am: 12.07.2007, 14:05 Titel: |
|
|
Mao hat Folgendes geschrieben: | csderats hat Folgendes geschrieben: |
Öhhhmmm
welcher Satz |
csderats hat Folgendes geschrieben: |
suchen ihm erspart sein
|
csderats im OT-Forum hat Folgendes geschrieben: |
@Award:
*bescheurten-satz-austüftel*
|
|
*csderats-nimmt-FF-und-deinstalliert-ihn,-schmeißt-den-DSL-Router-aus-dem-Fenster,-und-surft-nun-mit-Opera-+-56k-Modem*
Eigtl. hieß der gaaanz anders, (drecks OOO und das auch noch bei TCP!!!!) eventuell brauch FF aber auch nur mal mit'm Bulldozer überfahren zu werden. [/quote] _________________ If hilfreicher_Beitrag then klick(location.here)
Klick |
|
Nach oben |
|
 |
Mao
Anmeldungsdatum: 25.09.2005 Beiträge: 4409 Wohnort: /dev/hda1
|
Verfasst am: 12.07.2007, 17:30 Titel: |
|
|
Toll, wieder jemand mit Analog-Modem. *glasige-augen-bekomm*  _________________ Eine handvoll Glück reicht nie für zwei.
--
 |
|
Nach oben |
|
 |
Sebastian Administrator

Anmeldungsdatum: 10.09.2004 Beiträge: 5969 Wohnort: Deutschland
|
|
Nach oben |
|
 |
AndT
Anmeldungsdatum: 02.04.2007 Beiträge: 481
|
|
Nach oben |
|
 |
ytwinky

Anmeldungsdatum: 28.05.2005 Beiträge: 2624 Wohnort: Machteburch
|
Verfasst am: 16.07.2007, 17:29 Titel: |
|
|
Hi,
AndT hat Folgendes geschrieben: | Code: | ..
If tmpscan="\" then Add = 0
If tmpscan="/" then Add = 0
If tmpscan=">" then Add = 0
If tmpscan="<" then Add = 0
If tmpscan="#" then Add = 0
If tmpscan=":" then Add = 0
If tmpscan="|" then Add = 0
If tmpscan="!" then Add = 0
If tmpscan="""" then Add = 0
If tmpscan="§" then Add = 0
If tmpscan="$" then Add = 0
If tmpscan="%" then Add = 0
If tmpscan="&" then Add = 0
If tmpscan="(" then Add = 0
If tmpscan=")" then Add = 0
If tmpscan="=" then Add = 0
If tmpscan="/" then Add = 0
If tmpscan="*" then Add = 0
If tmpscan="+" then Add = 0
If tmpscan="-" then Add = 0
If tmpscan="." then Add = 0
If tmpscan="," then Add = 0 |
| ..wäre doch gelacht, wenn dieser überflüssige Wust von If-Anweisungen nicht zusammengefaßt werden könnte..
..und das geht natürlich mit: Code: | If Instr("\/><#:|!§$%&()=*+-.,", tmpscan)<>0 Then Add = 0 | ..da fällt dann sogar auf, daß "/" zweimal geprüft wird und das ist natürlich superfluid
Anm: superfluid heißt hier natürlich nicht schneller als Wasser, sondern überflüssig..
Fazit:22 If-Anweisungen und Add-Zuweisungen durch eine einzige Anweisung ersetz..
..'Tuning' ohne schnelleren Prozessor oder mehr Ram, nur ein paar 'freie Ressourcen' genutzt
Gruß
ytwinky _________________
v1ctor hat Folgendes geschrieben: | Yeah, i like INPUT$(n) as much as PRINT USING.. | ..also ungefähr so, wie ich GOTO.. |
|
Nach oben |
|
 |
AndT
Anmeldungsdatum: 02.04.2007 Beiträge: 481
|
Verfasst am: 16.07.2007, 18:17 Titel: |
|
|
Das kommt wohl davon, weil mir Instr neu ist xD. |
|
Nach oben |
|
 |
volta
Anmeldungsdatum: 04.05.2005 Beiträge: 1876 Wohnort: D59192
|
Verfasst am: 16.07.2007, 18:31 Titel: |
|
|
AndT hat Folgendes geschrieben: | Kein Problem
I hab sogar noch einige Bugs rausgenommen und den Code etwas verbessert. | hmm..
Wenn ich dich richtig verstanden habe willst du eine Bin-Datei in eine inc-Datei für FB umwandeln und dann auch irgendwann zurück in eine bin-Datei wandeln?
/gestrichen wegen Irrtum meinerseits /
Weiter frage ich mich wie du das jemals wieder decodieren willst?
Hier habe ich ähnliches mal für ein Image gemacht http://forum.qbasic.at/viewtopic.php?p=54870#54870
aber dann doch mit einem Packprogramm die Datenmenge vorher reduziert, da man bei dieser Methode die ursprünglichen Daten fast auf das 3fache aufbläht.
EDIT/
ich sehe gerade, dass ich mich da geirrt habe.
Die nächste Zeile hatte ich übersehen
Code: | IF ASCCODE < 16 THEN Code+="0"
Code +=HEX(ASCCODE) | kannst du ersetzen zu
Code: | Code +=HEX(ASCCODE, 2) |
_________________ Warnung an Choleriker:
Dieser Beitrag kann Spuren von Ironie & Sarkasmus enthalten.
Zu Risiken & Nebenwirkungen fragen Sie Ihren Therapeuten oder Psychiater. |
|
Nach oben |
|
 |
|