Infoga bilder

Nyheter från Tesla Club Sweden

Moderator: Redaktion

Användarvisningsbild
TiborBlomhall
Inlägg: 7297
Blev medlem: 04 mar 2014 22:03
Ort: Stockholm
Referralkod: ts.la/tibor72449

Re: Infoga bilder

Inlägg av TiborBlomhall »

OK, hinner inte mer idag.
Återställt koden till det gamla.

Kan nån mejla mig 4 iPhone bilder tagna ett åt varje håll (dvs med 90 graders rotation mellan varje bild?) så kan jag testa själv?

tibor.blomhall teslaclubsweden.se
Användarvisningsbild
TiborBlomhall
Inlägg: 7297
Blev medlem: 04 mar 2014 22:03
Ort: Stockholm
Referralkod: ts.la/tibor72449

Re: Infoga bilder

Inlägg av TiborBlomhall »

Förresten det är ju massor med folk som kan mer om php än mig här på forumet. Vad är det som är fel:

Kod: Markera allt

  // Modify these params accordingly to suit your installation
  $nMaxWidth = 1024;
  $nMaxHeight = 1024;
  $nJPEGCompression = 75;
  $imgMaxBytes = 256*1024;

  // You may want to modify this "if this attachment an image" check.. at the moment I'm using this:

  if (strpos($file->get('mimetype'), 'image/') === 0) {
    $sImgSourceFilename = $file->get('filename');
    $imgBytes = $file->get('filesize');
    if ($arrImageData = @getimagesize($sImgSourceFilename)) {

      $nImageType = $arrImageData[2];

      switch ($nImageType) {
        case IMG_GIF:
          $imgSource = @imagecreatefromgif($sImgSourceFilename);
          break;
        case IMG_JPG:
          $imgSource = @imagecreatefromjpeg($sImgSourceFilename);
          break;
        case IMG_PNG:
          $imgSource = @imagecreatefrompng($sImgSourceFilename);
          break;
        case IMG_WBMP:
          $imgSource = @imagecreatefromwbmp($sImgSourceFilename);
          break;
        default:
          $imgSource = null;
          break;
      }

      // Assuming we managed to read in the image OK..
      if ($imgSource) {
        $nImgWidth = $arrImageData[0];
        $nImgHeight = $arrImageData[1];
        $doResize = false;

/*        $exif = exif_read_data($sImgSourceFilename);
        if (!empty($exif['Orientation'])) {
            switch ($exif['Orientation']) {
                case 3:
                    $imgSource2 = imagerotate($imgSource, 180, 0);
                    $doResize = true;
                    break;

                case 6:
                    $imgSource2 = imagerotate($imgSource, -90, 0);
                    $nImgWidth = $arrImageData[1];
                    $nImgHeight = $arrImageData[0];
                    $arrImageData[1] = $nImgWidth;
                    $arrImageData[0] = $nImgHeight;
                    $doResize = true;
                    break;

                case 8:
                    $imgSource2 = imagerotate($imgSource, 90, 0);
                    $nImgWidth = $arrImageData[1];
                    $nImgHeight = $arrImageData[0];
                    $arrImageData[1] = $nImgWidth;
                    $arrImageData[0] = $nImgHeight;
                    $doResize = true;
                    break;
            }
            imageDestroy($imgSource);
            $imgSource = $imgSource2;
        }
*/
        if ($nImgHeight > $nMaxHeight || $nImgWidth > $nMaxWidth || $imgBytes > $imgMaxBytes) { 
          $doResize = true;
          // otherwise image width and/or height exceed our max dimensions
          // work out the new widht/height for downward proportional resampling:
          if ($nImgHeight > $nMaxHeight) {
            $nRatio = ($nImgWidth / $nImgHeight);
            $nImgHeight = $nMaxHeight;
            $nImgWidth = round($nMaxHeight * $nRatio);
          }
          if ($nImgWidth > $nMaxWidth) {
            $nRatio = ($nImgHeight / $nImgWidth);
            $nImgWidth = $nMaxWidth;
            $nImgHeight = round($nMaxWidth * $nRatio);
          }
        }

        if ($doResize) {
          $imgScaled = ImageCreateTrueColor($nImgWidth, $nImgHeight);
          if (imagecopyresampled($imgScaled, $imgSource, 0, 0, 0, 0, $nImgWidth, $nImgHeight, $arrImageData[0], $arrImageData[1]))
            imagejpeg($imgScaled, $sImgSourceFilename, $nJPEGCompression);
          imageDestroy($imgScaled);
        }
        imageDestroy($imgSource);
      }
    }
  }

Koden för import av bilder i forumet, de skalas om de är för stora.
EXIF-roteringen jag la till är det bortkommenterade i koden. Resten fanns där sen förut.
Svenssons
Teslaägare
Inlägg: 12321
Blev medlem: 11 aug 2014 22:59

Re: Infoga bilder

Inlägg av Svenssons »

Kan inte testa detta själv, bara lite snabb Google Fu men det kanske är fel version av phpBB så att det kanske inte funkar:

https://www.phpbb.com/community/viewtop ... #p13241074
They who can give up essential liberty to obtain a little temporary safety, deserve neither liberty nor safety.
Användarvisningsbild
bylund
Teslaägare
Inlägg: 9336
Blev medlem: 11 jun 2014 22:11
Ort: Stockholm

Re: Infoga bilder

Inlägg av bylund »

TiborBlomhall skrev:
OK, hinner inte mer idag.
Återställt koden till det gamla.

Kan nån mejla mig 4 iPhone bilder tagna ett åt varje håll (dvs med 90 graders rotation mellan varje bild?) så kan jag testa själv?

tibor.blomhall teslaclubsweden.se
Skickat.
Model S 85 byggd okt 2014 | Flerlagersröd | Svart tak | Svart tygklädsel | Teknikpaket med autopilot | Skruvfjädring | Dubbelladdare | Säkerhetspaket | 19"-fälgar | LTE | CCS
Användarvisningsbild
TiborBlomhall
Inlägg: 7297
Blev medlem: 04 mar 2014 22:03
Ort: Stockholm
Referralkod: ts.la/tibor72449

Re: Infoga bilder

Inlägg av TiborBlomhall »

Tack alla, nu har jag fått bilder att leka med :D
Användarvisningsbild
mati
elbilist
Inlägg: 17037
Blev medlem: 22 mar 2016 10:08
Ort: Götene

Re: Infoga bilder

Inlägg av mati »

TiborBlomhall skrev:
Förresten det är ju massor med folk som kan mer om php än mig här på forumet. Vad är det som är fel:

Kod: Markera allt

 
                    $imgSource2 = imagerotate....
                    $nImgWidth = $arrImageData[1];
                    $nImgHeight = $arrImageData[0];
                    $arrImageData[1] = $nImgWidth;
                    $arrImageData[0] = $nImgHeight;
 
Jag är ingen expert på php, men du kopierar bredd till bredd och höjd till höjd. Ska det inte index 0 och 1 vara tvärtom i de sista raderna?
e-Golf -18 | Ioniq 5 First Edition RWD -22 | Evess elmoped
e-tron 55 -19 | Model S 90D -16 | Model S P85 -14
Användarvisningsbild
TiborBlomhall
Inlägg: 7297
Blev medlem: 04 mar 2014 22:03
Ort: Stockholm
Referralkod: ts.la/tibor72449

Re: Infoga bilder

Inlägg av TiborBlomhall »

Jag verkar ha fått till det nu!

Istället för att försöka kombinera skalning och rotation skalar jag nu först, och sedan roterar den lilla bilden. Då funkar det.

Kan ni testa lägga upp från iPhone nån felvänd bild?
Användarvisningsbild
Tars
Teslaägare
Inlägg: 6504
Blev medlem: 22 feb 2015 11:59
Ort: Sigtuna

Re: Infoga bilder

Inlägg av Tars »

Bild
Ska vara uppochner
Är inne på Tesla nr 22 som jag brukat, orkar inte skriva ner alla så det får bli en siffra.
Just nu ingen tesla.... :cry:

http://---

https://lazystore.se/products/white-mid ... 913d&_ss=r
Användarvisningsbild
Tars
Teslaägare
Inlägg: 6504
Blev medlem: 22 feb 2015 11:59
Ort: Sigtuna

Re: Infoga bilder

Inlägg av Tars »

Vi har förresten strömavbrott. En stackars grävmaskinist grävde av den och det resulterade i 814 hem utan el.
Skulle ha installerat batterbackupen som ligger i pannrummet......
Är inne på Tesla nr 22 som jag brukat, orkar inte skriva ner alla så det får bli en siffra.
Just nu ingen tesla.... :cry:

http://---

https://lazystore.se/products/white-mid ... 913d&_ss=r
Användarvisningsbild
TiborBlomhall
Inlägg: 7297
Blev medlem: 04 mar 2014 22:03
Ort: Stockholm
Referralkod: ts.la/tibor72449

Re: Infoga bilder

Inlägg av TiborBlomhall »

Tars skrev:
Bild
Ska vara uppochner
Tack men nån som kan ladda upp direkt från iphone via webbsidan, inte Tapatalk.
Användarvisningsbild
Tars
Teslaägare
Inlägg: 6504
Blev medlem: 22 feb 2015 11:59
Ort: Sigtuna

Re: Infoga bilder

Inlägg av Tars »

TiborBlomhall skrev:
Tars skrev:
Bild
Ska vara uppochner
Tack men nån som kan ladda upp direkt från iphone via webbsidan, inte Tapatalk.
Aha, sorry.
Är inne på Tesla nr 22 som jag brukat, orkar inte skriva ner alla så det får bli en siffra.
Just nu ingen tesla.... :cry:

http://---

https://lazystore.se/products/white-mid ... 913d&_ss=r
Användarvisningsbild
bylund
Teslaägare
Inlägg: 9336
Blev medlem: 11 jun 2014 22:11
Ort: Stockholm

Re: Infoga bilder

Inlägg av bylund »

image.jpg
Uppochner på iPhone.
Model S 85 byggd okt 2014 | Flerlagersröd | Svart tak | Svart tygklädsel | Teknikpaket med autopilot | Skruvfjädring | Dubbelladdare | Säkerhetspaket | 19"-fälgar | LTE | CCS
Användarvisningsbild
TiborBlomhall
Inlägg: 7297
Blev medlem: 04 mar 2014 22:03
Ort: Stockholm
Referralkod: ts.la/tibor72449

Re: Infoga bilder

Inlägg av TiborBlomhall »

* V * I * C * T * O * L * Y * ! * :D
Användarvisningsbild
bylund
Teslaägare
Inlägg: 9336
Blev medlem: 11 jun 2014 22:11
Ort: Stockholm

Re: Infoga bilder

Inlägg av bylund »

Eftersom jag ändå bara väntar testar vi Android också
14718936350481892241495.jpg
Model S 85 byggd okt 2014 | Flerlagersröd | Svart tak | Svart tygklädsel | Teknikpaket med autopilot | Skruvfjädring | Dubbelladdare | Säkerhetspaket | 19"-fälgar | LTE | CCS
Användarvisningsbild
danni
Teslaägare
Inlägg: 7259
Blev medlem: 24 mar 2015 13:18
Ort: Göteborg
Referralkod: ts.la/danni1257
Kontakt:

Re: Infoga bilder

Inlägg av danni »

Bra jobbat, Tibor!
Model X Plaid / Midnight Silver / vit interiör med kolfiber / 22” / FSD
Räkna ut din Tesla-kostnad: https://www.teslakalkylen.com
Användarvisningsbild
Pontus
Teslaägare
Inlägg: 8502
Blev medlem: 26 nov 2014 05:42
Ort: Upplands Väsby, Stockholm

Re: Infoga bilder

Inlägg av Pontus »

Provar samma bild som tidigare.
image.jpeg
Model S Plaid
Model 3 LR AWD Vit
Model 3 LR RWD Svart. SÅLD
Första Svenskägda Model 3 Blå med svart inredning och de fula hjulen och AP. SÅLD
Model S 85D Matt blå SÅLD
För rabatt på model S o X kan ni prova att twittra Elon, tala om hur det gick.
Användarvisningsbild
Pontus
Teslaägare
Inlägg: 8502
Blev medlem: 26 nov 2014 05:42
Ort: Upplands Väsby, Stockholm

Re: Infoga bilder

Inlägg av Pontus »

Ha, va bra. Du har förlängt livet på min iphone då det nu var nära att den gavs till någon mindre varsam person (en unge). :)
Model S Plaid
Model 3 LR AWD Vit
Model 3 LR RWD Svart. SÅLD
Första Svenskägda Model 3 Blå med svart inredning och de fula hjulen och AP. SÅLD
Model S 85D Matt blå SÅLD
För rabatt på model S o X kan ni prova att twittra Elon, tala om hur det gick.
Skriv svar