Jump to content
TNC-TR

coder_falcon

Üye
  • Content count

    93
  • Joined

  • Last visited

  • Days Won

    1

coder_falcon last won the day on August 19

coder_falcon had the most liked content!

Community Reputation

4 Neutral

About coder_falcon

  • Rank
    Azimli üye

Recent Profile Visitors

420 profile views
  1. result1 = CheckBox.GetChecked("CheckBox1"); result2 = CheckBox.GetChecked("CheckBox2"); if result1 == true then secili ise calışcak kodlar elseif result1 == false then seçili değilse calışcak kodlar end if result2 == true then secili ise calışcak kodlar elseif result2 == false then seçili değilse calışcak kodlar end
  2. coder_falcon

    Windows Ekran Görüntüsü Alma

    hocam otomatik ekran goruntusu alması gerek
  3. Windows Ekran Görüntüsü Alma Merhaba Arkadaşlar Ams de Butona Tıklayınca Masaüstünün Full Ekran Resmini cekip Masaüstüne Kaydetedecek Yardımcı Olurmusunuz
  4. coder_falcon

    Veritabanı Resim Yükleme Gösterme

    eyvallah hocam
  5. coder_falcon

    Veritabanı Resim Yükleme Gösterme

    bu isi pairs usta bilmiyorsa hic kimse bilemz daha bu konun cevabnı.
  6. coder_falcon

    Veritabanı Resim Yükleme Gösterme

    oda olur yalnz nasl olacak o ?? kodlar lazm
  7. coder_falcon

    Veritabanı Resim Yükleme Gösterme

    sayın hocalar su koda bi yardmcı olurmusunuz yoksa bilgisayarı toplayıp pencereden asa atacam onu.
  8. coder_falcon

    Veritabanı Resim Yükleme Gösterme

    Resim Ekle Butonu local secim = Dialog.FileBrowse(true, "Profil Resmi Seçiniz",_DesktopFolder, "Profil Fotoğrafı (.jpg, .png )|*.jpg;*.png|", "", "dat", false, true); if secim[1] ~= "CANCEL" then Input.SetText("Input1", secim[1]); MySQLConnection, err = MySQL:connect('test', 'root', '', 'localhost', '3306'); local profil= Crypto.Base64EncodeToString(secim[1]); MySQLCursor = MySQLConnection:execute("insert into photo (profil) values('"..profil.."')"); end Resim ekle kodları calışıyor yalnız resim göster kodları calışmıyor hocam ? Resmi Göster Butonu MySQLConnection, err = MySQL:connect('test', 'root', '', 'localhost', '3306'); id = Input.GetText("id"); MySQLCursor = MySQLConnection:execute("SELECT * From photo where id='"..id.."'") -- Conecta la tabla for i = 1, MySQLCursor:numrows() do -- Cuenta el numero de registros local id,profil = MySQLCursor:fetch(); endCrypto.Base64DecodeFromString(bindata[1]["Path"],_TempFolder.."\\profil1.jpg"); Image.Load("Image1", _TempFolder.."\\profil1.jpg"); os.remove(_TempFolder.."\\profil1.jpg"); resim gösterme kodunda nerede yanlışlık yapıyorum ?
  9. coder_falcon

    Veritabanı Resim Yükleme Gösterme

    usta projem mysql olduğ için mysql yapma şansımız yokmu bu projeyi ?
  10. coder_falcon

    Veritabanı Resim Yükleme Gösterme

    eyvallah usta sağol
  11. coder_falcon

    Veritabanı Resim Yükleme Gösterme

    -----------------------------yükleme kodu secim = Dialog.FileBrowse(true, "Profil Resmi Seçiniz",_DesktopFolder, "Profil Fotoğrafı (.jpg, .png )|*.jpg;*.png|", "", "dat", false, true); if (secim[1] ~= "CANCEL") and (secim ~= nil) then Input.SetText("Input1",secim[1]); MySQLConnection, err = MySQL:connect('photo', 'root', '', 'localhost', '3306'); foto = Input.GetText("Input1"); MySQLCursor = MySQLConnection:execute("insert into img (foto) values('"..foto.."')"); end --------------------------------------------------------------------------------------------------------------------------resim gösterme kodu MySQLConnection, err = MySQL:connect('photo', 'root', '', 'localhost', '3306'); id = Input.GetText("sayi"); local MySQLCursor = MySQLConnection:execute("SELECT * FROM img Where id='"..id.."'") local id,foto = MySQLCursor:fetch(); if (String.Length(foto) > 200) then TextFile.WriteFromString(_TempFolder.."\\encoded.b64",foto); error = Application.GetLastError(); if (error ~= 0) then Dialog.Message("Error", _tblErrorMessages[error], MB_OK, MB_ICONEXCLAMATION); else Crypto.Base64DecodeFromFile(_TempFolder.."\\encoded.b64", _TempFolder.."\\decoded.png"); if (error ~= 0) then Dialog.Message("Error", _tblErrorMessages[error], MB_OK, MB_ICONEXCLAMATION); else Image.Load("Image1", _TempFolder.."\\decoded.png"); if (error ~= 0) then Dialog.Message("Error", _tblErrorMessages[error], MB_OK, MB_ICONEXCLAMATION); end end File.Delete(_TempFolder.."\\decoded.png"); end File.Delete(_TempFolder.."\\encoded.b64"); end yalnız yine olmadı resimi göstermiyor
  12. coder_falcon

    Veritabanı Resim Yükleme Gösterme

    hocam kafam karsdı zaten bunda daha once hic zorlanmadm bu kadar baska kodlarda
  13. coder_falcon

    Veritabanı Resim Yükleme Gösterme

    hocam haklsn da benm ihtiyacm olan bu koddu diğerlerini yapyrum
  14. coder_falcon

    Veritabanı Resim Yükleme Gösterme

    yardımcı olacak olan yokmu ? yardımcı olacak olan yokmu ?
  15. coder_falcon

    Veritabanı Resim Yükleme Gösterme

    foto = Input.GetText("sayi"); MySQLCursor = MySQLConnection:execute("Select * From img Where id='1'"); Local id,foto = MySQLCursor:fetch(); hocam böyle yaptm if (string.length(foto) >256) then scriptte hata veriyor kodlarda hata var
×