Flons

Super, genau das wars!! :uli Man, ist das einfach, wenn man(n) weiß, wie es geht... Danke! Gruß Florian

Hallo! ich habe folgendes Problemchen: Ich erstelle eine Tabelle, in der eine Grafik zu sehen sein soll. Diese Grafik soll nun so hoch sein, wie der Wert aus einem 2-dimensionalem Array. Ich hatte mir folgendes gedacht: echo "<td align=\"center\" valign=\"bottom\"><img height=$test[$a][$b] width=20 src=\"../images/balken.gif\">".$test[$a][$b]."</td>"; Problem: Ich benötige den Wert von $b als Höhenangabe. Mache ich das so, wie oben, wird mir die Grafik nicht in der gewünschten Höhe angezeigt. Wer weiß Rat?? Danke im Voraus.. Gruß Florian

Genau, Bingo! Aber Habi hat zwar den richtigen Denkanstoß gegeben, aber Deine Lösung wäre natürlich die "Richtigste".... Vielen Dank.. Gruß Florian

Oh, mein Gott.... Manchmal kann es so einfach sein, wenn man es richtig macht Vielen Dank..... :marine

Hallo! ich habe ein problem mit einem Array. Ich ziehe Daten aus einer Oracle-DB und schreibe sie in ein Array. Nun möchte ich diese Werte mit x multiplizieren. Leider erhalte ich dann nur eine Fehlermeldung: Fatal error: Unsupported operand types in ...... Wo liegt der Fehler bzw. was mache ich falsch? Ich denke mal, ich muß erst eine Typumwandlung machen. Oder? Hier mein Code (Auszugsweise): $test[0][]=OCIResult($Stmt,"ANZAHL_SCHMELZEN"); for ($x=0; $x < 1; $x++) { for ($y = 0; $y < count($test[$x]); $y++) { $test=$test*2; echo $test[$x][$y]."\n"; } echo "<br>"; } Vielen dank im Voraus für Eure Hilfe. Gruß Florian

Puhh, danke.So funktioniert es. Ich hatte wohl echt einen Balken vor dem Kopf. Gruß Florian

Hallo! Ich habe das jetzt wie folgt gelöst: $array1=array(); $array2=array(); $array3=array(); $i=0; OCIExecute($Stmt); while (OCIFetch($Stmt, "")) { $i++; $array1.=OCIResult($Stmt,"SOLLWERT"); $array1.=" "; $array2.=OCIResult($Stmt,"ANZAHL_SCHMELZEN"); $array2.=" "; $array3.=OCIResult($Stmt,"ABWEICHUNG"); $array3.=" "; } echo "</table>"; echo "<br><br>"; echo $array1; echo "<br>"; echo $array2; echo "<br>"; echo $array3; Jetzt habe ich nur noch das Problem, daß beim 1. Mal je Array angezeigt wird, also so: Array Datensatz1 Datensatz2 ...... Array Datensatz1 Datensatz2..... Wie kann ich das noch unterbinden??? Danke im Voraus. Gruß Florian

Hallo! Ich habe eine vielleicht ganz simple Frage, habe aber wahrscheinlich ein Brett vor dem Kopf: Ich ziehe mittels SQL und PHP Daten aus einer Oracle-DB, die ich nun in einer Tabelle ausgeben möchte. Nun sollen diese aber nicht untereinander sondern nebeneinander ausgegeben werden. Ich habe insgesamt 3 Werte. Hier mein Code: OCIExecute($Stmt); while (OCIFetch($Stmt, "")) { $spalte2=OCIResult($Stmt,"ID_VV_REE_ENTSCHW_IST"); $spalte3=OCIResult($Stmt,"SOLLWERT"); $spalte4=OCIResult($Stmt,"ANZAHL_SCHMELZEN"); $spalte5=OCIResult($Stmt,"ABWEICHUNG"); echo "<td align=\"center\">"; echo " $spalte2"; echo "</td><td align=\"center\">"; echo " $spalte3"; echo "</td><td align=\"center\">"; echo " $spalte4"; echo "</td><td align=\"center\">"; echo " $spalte5"; echo "</td></tr>"; } echo "</table>"; Frage: Wie muß ich den Code nun ändern, damit die (zusammenhängenden) Daten nebeneinander ausgegeben werden? Danke im Voraus. Gruß Florian

Hallo! Ich hoffe, ich poste hier richtig, ansonsten meinen Beitrag bitte verschieben: Ich suche ein gutes Buch für PHP, in dem leicht verständlich beschrieben wird, wie man Diagramme aller Art, vorzugsweise mit Daten aus einer Oracle- DB , erstellen kann. Danke im Voraus. Gruß Florian

Hallo! Ich hoffe, Ihr könnt mir helfen: Ich möchte mittels Delphi die Versionsnummer einer .exe auslesen. Die .exe hat einen festen Pfad. Das Ergebnis, also die Versionsnummer, soll dann in ein label geschrieben werden. Nun habe ich schon rausgefunden, das es mit der Funktion GetVersionInfo funzt bzw. funzen soll. Hier mein Quellcode: procedure TForm1.GetVersionInfo(const AFilename:String); const cCaptions : array[0..5] of String = ('Firmenname','Interner Name','Original-Dateiname','Produktname', 'Produktversion','Sprache'); cIdents : array[0..4] of String = ('CompanyName','InternalName','OriginalFilename','ProductName','ProductVersion'); type PLanguageCharSet = ^TLanguageCharSet; TLanguageCharSet = packed record L,C : Word end; var V1, V2, V3, V4 : Word; VerInfoSize : Integer; VerValueSize : DWord; VerInfo : Pointer; VerValue : PVSFixedFileInfo; BufLen : DWord; LanguageCharSet : PLanguageCharSet; s : String; i : Integer; function GetStringValue(const AIdent:String):String; var BufLen : DWord; p : Pointer; begin if VerQueryValue(VerInfo, PChar(Format('\StringFileInfo\%.4x%.4x\%s', [LanguageCharSet^.L,LanguageCharSet^.C,AIdent])), p,BufLen) and (BufLen>0) then begin SetString(Result,PChar(p),BufLen-1); end else begin Result:=''; end; end; begin VerInfoSize:=GetFileVersionInfoSize(PChar(AFilename),BufLen); if VerInfoSize>0 then begin GetMem(VerInfo,VerInfoSize); try if GetFileVersionInfo(PChar(AFilename),0,VerInfoSize,VerInfo) then begin if VerQueryValue(VerInfo,'\',Pointer(VerValue),VerValueSize) then with VerValue^ do begin V1:=dwFileVersionMS shr 16; V2:=dwFileVersionMS and $FFFF; V3:=dwFileVersionLS shr 16; V4:=dwFileVersionLS and $FFFF; // Hier muß man sich entscheiden, entweder numerisch oder unten als String // Gleiches gilt für Produktversion LblDateiVersionN.Caption:=Format('%d.%d.%d.%d',[V1,V2,V3,V4]); // Hier können noch andere Standard-Werte abgefragt werden: // dwProductVersionMS, dwProductVersionLS : Produktversion // dwFileFlagsMask, dwFileFlags : Flags, wie z.B. Testversion // dwFileOS : Angaben zum Betriebssystem // dwFileType, dwFileSubtype : Angaben zum Dateityp, z.B. Maustreiber // dwFileDateMS, dwFileDateLS : Datum der Erzeugung end; // Sprach und Zeichensatz-ID ermitteln if VerQueryValue(VerInfo, '\VarFileInfo\Translation', Pointer(LanguageCharSet),BufLen) then begin // Stringfelder auslesen LblDateiVersion.Caption:=GetStringValue('FileVersion'); LblBeschreibung.Caption:=GetStringValue('FileDescription'); LblCopyright.Caption:=GetStringValue('LegalCopyright'); with StringGrid1 do begin ColWidths[0]:=100; ColWidths[1]:=300; for i:=0 to 4 do begin Cells[0,i]:=cCaptions; Cells[1,i]:=GetStringValue(cIdents); end; // Sprache auslesen SetLength(s,100); BufLen:=VerLanguageName(LanguageCharSet.L,PChar(s),100); if BufLen>0 then begin SetLength(s,StrLen(PChar(s))); Cells[0,5]:=cCaptions[5]; Cells[1,5]:=s; end; end; end; end; finally FreeMem(VerInfo,VerInfoSize); end; end; end; procedure TForm1.FormCreate(Sender: TObject); begin GetVersionInfo(Application.Exename); end; procedure TForm1.Button1Click(Sender: TObject); begin with OpenDialog1 do begin if Execute then GetVersionInfo(Filename); end; end; Leider raffe ich noch nicht ganz, wie und wo ich den Dateipfad angebe und wie ich die versionsnummer dann in das Label bekomme. Könntet Ihr mir helfen? Ich bin in Delphi leider noch sehr nah am DAU... :confused: Danke. Gruß Florian

Falls es jemanden interessiert: Ich habe eine Lösung gefunden. Und zwar setze ich die Scaled-Eigenschaften der entsprechenden Formulare auf False. Damit hat sich das prob erledigt. Gruß Florian

Hallo! Meine Frage wurde schon einmal von jemandem gestellt, leider gab es damals keine (passende) Antwort. Nun versuche ich es mal: Wie schaffe ich es, die Einstellungen bzgl. Schriftgröße in Windows zu ignorieren? Stellt der User also eine andere Schriftgröße als 100% ein, soll das von meiner Delphi-Applikation ignoriert werden. Ich weiß, daß es vielleicht nicht Gentleman-Like ist, ist aber hier unumgänglich. Hat jemand dafür eine Lösung/einen Lösungsansatz? Bin ein absoluter Newbie und benötige Eure Hilfe. Danke im Voraus. Gruß Florian

Nein, ich darf keine verrwenden. Ich habe mir jetzt noch was ganz anderes überlegt: Ich schreibe den Inhalt der Variablen in eine Datei, lese sie aus und lösche dann die Datei. das wird das Sicherste sein. Aber danke. Gruß Florian

Danke für die Antwort, aber leider funktioniert es über session nicht :beagolisc Jetzt gibt es doch noch die Möglichkeit über JS die Variable mit window.name zu übergeben. Weiß jemand, wie das genau funktioniert? Danke Gruß Florian

Hallo! Wie kann ich eine Variable an eine andere Seite übergeben, ohne den Einsatz von <form> bzw. post. An die URL darf es auch nicht angehängt werden. Danke. Gruß Florian

Danke erst einmal für die Antwort. Doch die Links müssen sichtbar sein. Ich habe mich auch noch woanders informiert :floet: . Ich werde es jetzt wohl folgendermaßen machen: if ($username == "erlaubternutzer) { echo "<a href=........>link</a>"; } else { <font color="grey"> echo "linkname ohne verknüpfung"; } Trotzdem danke. Gruß Florian

Hallo Gemeinde! Ich habe folgendes Prob: Ich habe ein Zugangsportal, auf dem sich die User anmelden müssen. Danach gelangen sie zu einer Auswahlseite mit Links. Nun möchte ich gewissen Usern einige Links ermöglichen andere nicht. Frage: Wie kann ich die Links ausgrauen oder disablen? Geht das überhaupt? Danke im Voraus. Gruß Florian

Hallo! Ich empfehle das Taschenbuch SQL-Kurz & gut von O'Reilly. ISBN: 3-89721-268-4. Hier stehen wichtige SQL-Befehle für Oracle,DB2,SQL Server und MySQL. Gruß Florian

Hallo! Ich habe eine Applikation in Delphi 4 entwickelt, die auf eine Oracle. Datenbank zugreift. Nun bräuchte ich ein Script, welches auf dem Benutzer- Rechner guckt, ob die neueste Version der Applikation installiert ist und ggf. die neueste Version selbsständig installiert bzw. zur Installation auffordert. Frage: Was benötige ich für ein solches Script, bzw. wie müßte es etwa aussehen? Ich meine das Grundgerüst. Dies sollte keine Aufforderung sein, mir so etwas zur Verfügung zu stellen a la "Ich hab kein Bock, also poste ich mal." Es sollte bloß eine Anfrage zur Hilfestellung sein. Danke im Voraus. Gruß Florian

Hallo! Hiermit ist die Entwicklungsumgebung gemeint, also was Dir für Hard- und Software zur Vefügung steht etc. Gruß Florian

Hallo! ich weiß nicht, ob es schon mal gepostet wurde, jedenfalls hat meine Suche kein Ergebnis erzielt: Ich suche ein Design-Tool (muß nicht Freeware sein) für objektorientierte Datenbanken. Welche nutzt ihr bzw. welche könnt ihr empfehlen? Danke Gruß Florian

Hier würde ich das dann aber in der Projektdokumentation ausdrücklich erwähnen. Schaden kann das bestimmt nicht. Gruß

Uns(Umschüler) wurde gesagt, daß man das Projekt in einem Zug durchziehen muß. Es wurde davon abgeraten, heute mach ich mal das, morgen dies und Freitag jenes. Wie es bei Euch ist, kann ich natürlich nicht sagen, aber ich würde den Durchführungszeitraum etwas straffen Gruß Florian

Hallo! Verrätst Du mir, wie das geht? Meiner Meinung nach sind das mehr als 70 Stunden?! Gruß Florian

Ich habe mich auch mal ein bischen mit Typo3 beschäftigt. Ist Typo3 nicht vielleicht ein wenig zu kompliziert und umfangreich für einen Anfänger, der seine 1. HP bauen will?? Gruß Florian