| 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 |
|
|
|
FAQ
Suchen
Mitgliederliste
Benutzergruppen
Registrieren
Profil
Einloggen, um private Nachrichten zu lesen
Login
