Exe aracılığı ile kaydı dışarı SQL olarak çıkarmak

[shooterman]

İyi çalışmalar

Bir konuda yardımlarınızı isteyeceğim. Mysql veritabanı kullanıyorum. Programım aracılığı ile, kayıt oluşturarak, kaydın içine resim dosyasını blob alana kaydediyorum. Programımda kayıtlı olan veriler arasından istediğim bir kaydı, ad, soyad resim vb. kapsayacak şekilde dışarı aktarıp, daha sonra diğer bilgisayarımdan da, dışarıya aktardığım kaydı yine programım aracılığı ile içeri alıp insert etmek istiyorum. Aktardığımda aynı şekilde blob alanda bulunan resim de gelmeli. Bunu nasıl yapabileceğim konusunda bir türlü fikir edinemedim. Bilgisayarlar farklı lokasyonlarda ve aralarında bağlantı olmayacağı için, dışarı aktardığım dosyayı mail ya da usb ile taşımak zorundayım. Yardımlarını rica ederim.

İyi çalışmalar dilerim.

[bydelphi]

Merhaba, 

Ben dosya ile veri taşıma konusunda adodataset ile alttaki gibi kullanımım olmuştu.
datasetinde taşıyacağın kayıtlar kalacak şekilde filitreleyip böyle bir fonksiyonla taşıyabilirsin.
Blob taşımadım hiç ancak datasetin tümünü taşıdığı için blobda xml olarak işlenecektir.
Güvenlik için dosyayı şifrelemek de iyi bir seçenek olabilir.
internette "delphi RecordsetToXML" aratarak farklı metodlarda bulabilirsin.
burada da böyle bir paylaşım yapılmıştı vaktiseherde.
https://www.delphican.com/showthread.php?tid=819

function RecordsetToXML(const Recordset: _Recordset): string;
var
 RS: Variant;
 Stream: TStringStream;
begin
 Result := '';
 if Recordset = nil then Exit;
 Stream := TStringStream.Create('');
 try
   RS := CreateOleObject('ADODB.Recordset');
   RS := Recordset;
   RS.Save(TStreamAdapter.Create(stream) as IUnknown, adPersistXML);
   Stream.Position := 0;
   Result := Stream.DataString;
 finally
   Stream.Free;
 end;
end;

{
 Example:
 ...
   ADOQuery1.Recordset:=RecordsetFromXML(Memo1.Lines.Text);
 ...
}

function RecordsetFromXML(const XML: string): _Recordset;
var
 RS: Variant;
 Stream: TStringStream;
begin
 Result := nil;
 if XML = '' then Exit;
 try
   Stream := TStringStream.Create(XML);
   Stream.Position := 0;
   RS := CreateOleObject('ADODB.Recordset');
   RS.Open(TStreamAdapter.Create(Stream) as IUnknown);
   Result := IUnknown(RS) as _Recordset;
 finally
   Stream.Free;
 end;
end;

[shooterman]

Teşekkürler Hocam, blob datayı muhakkak dışarı alabilmeliyim