Forum: Datenbanken
Delphi
by DeddyH,
7. Okt 2007
Ja super, jetzt, wo wir nahe an der Lösung sind.
Forum: Datenbanken
Delphi
by DeddyH,
7. Okt 2007
procedure TForm9.test(Sender: TObject);
begin
//Versuchen, die Grafik ins Image zu laden
try
//Was kommt überhaupt an?
ShowMessage(DBGrid.DataSource.DataSet.FieldByName('Pfad').AsString);
Image1.Picture.Graphic.LoadFromFile(DBGrid.DataSource.DataSet.FieldByName('Pfad').AsString);
except
ShowMessage('Fehler beim Laden der Grafik');
end;
Forum: Datenbanken
Delphi
by DeddyH,
7. Okt 2007
Definiere "Geht nicht". Kommt eine Fehlermeldung (welche?) oder passiert gar nichts, oder wie?
Forum: Datenbanken
Delphi
by DeddyH,
7. Okt 2007
Ich habe auch nichts von einer weiteren DBGrid gesagt. Wenn Du einen Datensatz anklickst, wird die Datenmenge auf den angeklickten Datensatz positioniert.
Forum: Datenbanken
Delphi
by DeddyH,
7. Okt 2007
Wenn wir jetzt mal alles zusammenfassen, sollte es so gehen (wenn ich keinen Denkfehler mache):procedure TForm9.test(Sender: TObject);
begin
//Versuchen, die Grafik ins Image zu laden
try
Image1.Picture.Graphic.LoadFromFile(DBGrid.DataSource.DataSet.FieldByName('Pfad').AsString);
except
ShowMessage('Fehler beim Laden der Grafik');
end;
end;
Forum: Datenbanken
Delphi
by DeddyH,
7. Okt 2007
DBGrid.DataSource.Dataset.FieldByName('Pfad').AsString
Forum: Datenbanken
Delphi
by DeddyH,
7. Okt 2007
Ist denn die Datenmenge geöffnet?
Forum: Datenbanken
Delphi
by DeddyH,
7. Okt 2007
:bouncing4: Noch einmal und ich mach den Sekt auf :bounce1:
Forum: Datenbanken
Delphi
by DeddyH,
7. Okt 2007
Lass Dir mal ExtractFilePath(ParamStr(0)) ausgeben ;)
Forum: Datenbanken
Delphi
by DeddyH,
7. Okt 2007
Vermutlich hatten wir deshalb beide keinen roten Kasten.
Forum: Datenbanken
Delphi
by DeddyH,
7. Okt 2007
Ha, einmal schneller als mkinzler gewesen :zwinker:
Forum: Datenbanken
Delphi
by DeddyH,
7. Okt 2007
Dann lautet die Syntax auchAnderesForm.AdoQuery1
Forum: Datenbanken
Delphi
by DeddyH,
7. Okt 2007
Hast Du denn eine ADOQuery auf dem Formular?
Forum: Datenbanken
Delphi
by DeddyH,
7. Okt 2007
Hast Du den Verlauf den Threads nicht gelesen?procedure TForm9.test(Sender: TObject);
begin
//Versuchen, die Grafik ins Image zu laden
try
Image1.Picture.Graphic.LoadFromFile(ADOQuery1.FieldByName('Pfad').AsString);
except
ShowMessage('Fehler beim Laden der Grafik');
end;
end;
Forum: Datenbanken
Delphi
by DeddyH,
7. Okt 2007
War mir auch gerade aufgefallen, aber Du warst schneller, bevor ich editieren konnte ;)
Forum: Datenbanken
Delphi
by DeddyH,
7. Okt 2007
Hier mal ein Beispiel aus einem Testprojekt von mir (deshalb die blöden Bezeichner):procedure TFrmMain.LoadPic;
var Stream: TStream;
aJPG: TJPEGImage;
begin
ZQuery1.Close;
with ZQuery1.SQL do
begin
Clear;
Add('SELECT Grafik FROM Bild');
Add('WHERE ID = :id');